[svn:Module-Build] r8469 - in Module-Build/trunk: . lib/Module/Build

[kwilliams]

Author: kwilliams
Date: Tue Dec 26 20:49:50 2006
New Revision: 8469

Modified:
   Module-Build/trunk/Changes
   Module-Build/trunk/lib/Module/Build/Base.pm

Log:
Don't assume PERL5LIB is already defined

Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes  (original)
+++ Module-Build/trunk/Changes  Tue Dec 26 20:49:50 2006
@@ -1,5 +1,9 @@
 Revision history for Perl extension Module::Build.
 
+ - When we're protecting the world from the evils of long RedHat
+   $ENV{PERL5LIB} variables, don't assume $ENV{PERL5LIB} is already
+   defined. [Dave Rolsky]
+
 0.2806 - Fri Dec 15 22:20:14 2006
 
  - On some systems (haven't identified the actual problem yet)

Modified: Module-Build/trunk/lib/Module/Build/Base.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Base.pm (original)
+++ Module-Build/trunk/lib/Module/Build/Base.pm Tue Dec 26 20:49:50 2006
@@ -3995,7 +3995,8 @@
   my %seen;
   my $sep = $self->config('path_sep');
   local $ENV{PERL5LIB} = 
-    ( length($ENV{PERL5LIB}) < 500
+    ( !exists($ENV{PERL5LIB}) ? '' :
+      length($ENV{PERL5LIB}) < 500
       ? $ENV{PERL5LIB}
       : join $sep, grep { ! $seen{$_}++ and -d $_ } split($sep, $ENV{PERL5LIB})
     );