SVN: toys/rsget.pl/rsget.pl

[pawelz]

Author: pawelz
Date: Fri Nov  6 14:10:22 2009
New Revision: 10957

Modified:
   toys/rsget.pl/rsget.pl
Log:
- require Cwd if and only if getcwd() is used (thx sparky)


Modified: toys/rsget.pl/rsget.pl
==============================================================================
--- 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;
 
 our %def_settings;