[Bast-commits] r8738 - in local-lib/1.000/trunk: . lib/local

[apeiron at dev.catalyst.perl.org]

Author: apeiron
Date: 2010-02-18 10:40:05 +0000 (Thu, 18 Feb 2010)
New Revision: 8738

Modified:
   local-lib/1.000/trunk/Changes
   local-lib/1.000/trunk/lib/local/lib.pm
Log:
Warnings for missing PATH/PERL5LIB (as when not running interactively) silenced
by a patch from Marco Emilio Poleggi.

Modified: local-lib/1.000/trunk/Changes
===================================================================
--- local-lib/1.000/trunk/Changes	2010-02-17 23:27:39 UTC (rev 8737)
+++ local-lib/1.000/trunk/Changes	2010-02-18 10:40:05 UTC (rev 8738)
@@ -1,5 +1,8 @@
 Revision history for local::lib
 
+        - Warnings for missing PATH/PERL5LIB (as when not running interactively)
+          silenced by a patch from Marco Emilio Poleggi.
+
         - Start of better docs for C<--self-contained> thanks to
           markstos at cpan.org.
 

Modified: local-lib/1.000/trunk/lib/local/lib.pm
===================================================================
--- local-lib/1.000/trunk/lib/local/lib.pm	2010-02-17 23:27:39 UTC (rev 8737)
+++ local-lib/1.000/trunk/lib/local/lib.pm	2010-02-18 10:40:05 UTC (rev 8738)
@@ -350,7 +350,7 @@
     PERL5LIB => join($Config{path_sep},
                   $class->install_base_perl_path($path),
                   $class->install_base_arch_path($path),
-                  ($ENV{PERL5LIB} ?
+                  (($ENV{PERL5LIB}||()) ?
                     ($interpolate == INTERPOLATE_ENV
                       ? ($ENV{PERL5LIB})
                       : (($^O ne 'MSWin32') ? '$PERL5LIB' : '%PERL5LIB%' ))
@@ -359,7 +359,7 @@
     PATH => join($Config{path_sep},
               $class->install_base_bin_path($path),
               ($interpolate == INTERPOLATE_ENV
-                ? $ENV{PATH}
+                ? ($ENV{PATH}||())
                 : (($^O ne 'MSWin32') ? '$PATH' : '%PATH%' ))
              ),
   )
@@ -809,6 +809,9 @@
 
 Patch to add Win32 support contributed by Curtis Jewell <csjewell at cpan.org>.
 
+Warnings for missing PATH/PERL5LIB (as when not running interactively) silenced
+by a patch from Marco Emilio Poleggi.
+
 =head1 COPYRIGHT
 
 Copyright (c) 2007 - 2009 the local::lib L</AUTHOR> and L</CONTRIBUTORS> as