Re: Annoying warning from M::B::Base->do_system()

[Ken Williams]

On Dec 19, 2006, at 1:33 PM, Dave Rolsky wrote:
Arround line 4000 of the 0.2806 release, it assumes that $ENV 
{PERL5LIB} is defined, but for me it's not, so I get some undef  
warnings with things like "Build dist". Easy enough to fix, I think.

Yeah, something like this should do it:

--- lib/Module/Build/Base.pm    (revision 2239)
+++ lib/Module/Build/Base.pm    (local)
@@ -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})
     );


 -Ken