SVN: toys/rsget.pl/rsget.pl

Elan Ruusamäe glen at delfi.ee
Mon Nov 9 09:46:39 CET 2009


On Friday 06 November 2009 15:10:23 pawelz wrote:
> Log:
> - require Cwd if and only if getcwd() is used (thx sparky)
>
...
> ===========================================================================
>=== --- toys/rsget.pl/rsget.pl	(original)
> +++ toys/rsget.pl/rsget.pl	Fri Nov  6 14:10:22 2009
> @@ -8,10 +8,9 @@
>  #
>  use strict;
>  use warnings;
> -use Cwd;
>  my $rev = qq$Id$;
>
> -our $install_path = getcwd();
> +our $install_path = do { require Cwd; Cwd::getcwd(); };
>  our $local_path = $install_path;


what do you mean? it's always imported in such code method:

$ strace -ff -efile perl -e 'our $install_path = do { require Cwd; Cwd::getcwd(); };' 2>&1|grep Cwd |grep -v NOENT
stat64("/usr/lib/perl5/5.10.1/i686-pld-linux-thread-multi/Cwd.pm", {st_mode=S_IFREG|0644, st_size=21167, ...}) = 0
open("/usr/lib/perl5/5.10.1/i686-pld-linux-thread-multi/Cwd.pm", O_RDONLY|O_LARGEFILE) = 6
stat64("/usr/lib/perl5/5.10.1/i686-pld-linux-thread-multi/auto/Cwd/Cwd.so", {st_mode=S_IFREG|0755, st_size=10864, ...}) = 0
open("/usr/lib/perl5/5.10.1/i686-pld-linux-thread-multi/auto/Cwd/Cwd.so", O_RDONLY) = 6

$ strace -ff -efile perl -e 'our $install_path = do { require Cwd; Cwd::getcwd(); }; print $install_path;' 2>&1|grep Cwd |grep -v NOENT
stat64("/usr/lib/perl5/5.10.1/i686-pld-linux-thread-multi/Cwd.pm", {st_mode=S_IFREG|0644, st_size=21167, ...}) = 0
open("/usr/lib/perl5/5.10.1/i686-pld-linux-thread-multi/Cwd.pm", O_RDONLY|O_LARGEFILE) = 6
stat64("/usr/lib/perl5/5.10.1/i686-pld-linux-thread-multi/auto/Cwd/Cwd.so", {st_mode=S_IFREG|0755, st_size=10864, ...}) = 0
open("/usr/lib/perl5/5.10.1/i686-pld-linux-thread-multi/auto/Cwd/Cwd.so", O_RDONLY) = 6


-- 
glen


More information about the pld-devel-en mailing list