./build dist warnings with undefined PERL5LIB (M::B 0.2806)

[Steffen Mueller]

Hi,

I'm seeing various warnings during ./Build dist when PERL5LIB is not 
defined. Output is:

Deleting Makefile.PL
Creating Makefile.PL
Deleting META.yml
Creating META.yml
Creating Math-Symbolic-0.505
Creating Math-Symbolic-0.505.tar.gz
tar cf Math-Symbolic-0.505.tar Math-Symbolic-0.505
Use of uninitialized value in length at 
/usr/local/share/perl/5.8.8/Module/Build/Base.pm line 4000.
Use of uninitialized value in scalar assignment at 
/usr/local/share/perl/5.8.8/Module/Build/Base.pm line 4000.
gzip Math-Symbolic-0.505.tar
Use of uninitialized value in length at 
/usr/local/share/perl/5.8.8/Module/Build/Base.pm line 4000.
Use of uninitialized value in scalar assignment at 
/usr/local/share/perl/5.8.8/Module/Build/Base.pm line 4000.
gzip: Math-Symbolic-0.505.tar.gz already exists; do you wish to 
overwrite (y or n)? y
Deleting Math-Symbolic-0.505

This is simple enough to fix. This patch is against the *CPAN* version 
of Module::Build:

--- Base.pm.old 2007-01-12 11:49:57.000000000 +0100
+++ /usr/local/share/perl/5.8.8/Module/Build/Base.pm    2007-01-12 
11:50:40.0000
00000 +0100
@@ -3992,13 +3992,15 @@
   $self->log_info("@cmd\n");

   # Some systems proliferate huge PERL5LIBs, try to ameliorate:
-  my %seen;
-  my $sep = $self->config('path_sep');
-  local $ENV{PERL5LIB} =
-    ( length($ENV{PERL5LIB}) < 500
-      ? $ENV{PERL5LIB}
-      : join $sep, grep { ! $seen{$_}++ and -d $_ } split($sep, 
$ENV{PERL5LIB})
-    );
+  if (defined $ENV{PERL5LIB}) {
+    my %seen;
+    my $sep = $self->config('path_sep');
+    local $ENV{PERL5LIB} =
+      ( length($ENV{PERL5LIB}) < 500
+        ? $ENV{PERL5LIB}
+        : join $sep, grep { ! $seen{$_}++ and -d $_ } split($sep, 
$ENV{PERL5LIB
})
+      );
+  }

   my $status = system(@cmd);
   if ($status and $! =~ /Argument list too long/i) {


Cheers,
Steffen