On FreeBSD this fixes the warning: Use of uninitialized value $p in string eq at /usr/local/lib/perl5/5.14.2/BSDPAN/BSDPAN.pm line 36.
@@ -39,7 +39,8 @@
#
BEGIN {
- @INC=(@INC, $ENV{'srcdir'}, '.');
+ push(@INC, $ENV{'srcdir'}) if(defined $ENV{'srcdir'});
+ push(@INC, ".");
# sub second timestamping needs Time::HiRes
eval {
no warnings "all";
@@ -22,7 +22,8 @@
#***************************************************************************
}
use strict;
@@ -23,7 +23,8 @@
-@INC=(@INC, $ENV{'srcdir'}, ".");
+push(@INC, $ENV{'srcdir'}) if(defined $ENV{'srcdir'});
+push(@INC, ".");
require "getpart.pm"; # array functions
@@ -56,7 +56,8 @@
# These should be the only variables that might be needed to get edited:
- @INC=(@INC, $ENV{'srcdir'}, ".");
# run time statistics needs Time::HiRes
@@ -26,7 +26,8 @@
# non-secure test harness servers.