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

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-10-28 10:53:29 +0000 (Wed, 28 Oct 2009)
New Revision: 7823

Modified:
   local-lib/1.000/trunk/Changes
   local-lib/1.000/trunk/lib/local/lib.pm
Log:
Fix warning from undef PERL5LIB

Modified: local-lib/1.000/trunk/Changes
===================================================================
--- local-lib/1.000/trunk/Changes	2009-10-28 02:01:24 UTC (rev 7822)
+++ local-lib/1.000/trunk/Changes	2009-10-28 10:53:29 UTC (rev 7823)
@@ -1,5 +1,7 @@
 Revision history for local::lib
 
+        - Fix warning if your $ENV{PERL5LIB} is undef
+
 1.004008 2009-10-13
 
         - Clarify re-reading the shell config file after writing to it.

Modified: local-lib/1.000/trunk/lib/local/lib.pm
===================================================================
--- local-lib/1.000/trunk/lib/local/lib.pm	2009-10-28 02:01:24 UTC (rev 7822)
+++ local-lib/1.000/trunk/lib/local/lib.pm	2009-10-28 10:53:29 UTC (rev 7823)
@@ -21,7 +21,7 @@
 DEATH
 
   # Remember what PERL5LIB was when we started
-  my $perl5lib = $ENV{PERL5LIB};
+  my $perl5lib = $ENV{PERL5LIB} || '';
 
   my %arg_store;
   for my $arg (@args) {