runtests and friends: Do not add undefined values to @INC

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.

diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index 6e6f691d4abb25912cdd5c72984a6c1b94ae85e8..45b343635df6750bba231e7ed22515a0fbab1044 100755 (executable)
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -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";

diff --git a/tests/httpserver.pl b/tests/httpserver.pl
index d5c4dfb27cfcf4f22c2429ebeb4fbb6ff67b5c24..a38c3cebd61d25db15e3d2cc12df9b7087c1bd5e 100755 (executable)
--- a/tests/httpserver.pl
+++ b/tests/httpserver.pl
@@ -22,7 +22,8 @@
 #***************************************************************************
 
 BEGIN {
-    @INC=(@INC, $ENV{'srcdir'}, '.');
+    push(@INC, $ENV{'srcdir'}) if(defined $ENV{'srcdir'});
+    push(@INC, ".");
 }
 
 use strict;

diff --git a/tests/keywords.pl b/tests/keywords.pl
index 523bde1fcba22a7ac44fe59eb8318dfa57289a62..28646ad00bda85ab51f9e64daaeba1da447780ba 100755 (executable)
--- a/tests/keywords.pl
+++ b/tests/keywords.pl
@@ -23,7 +23,8 @@
 
 use strict;
 
-@INC=(@INC, $ENV{'srcdir'}, ".");
+push(@INC, $ENV{'srcdir'}) if(defined $ENV{'srcdir'});
+push(@INC, ".");
 
 require "getpart.pm"; # array functions
 

diff --git a/tests/rtspserver.pl b/tests/rtspserver.pl
index 515128d7ba37f93c6b2f222dad82642b8a7e03a3..07a588ecd69fe3e7f5392b4102c2a31ae4a037e7 100755 (executable)
--- a/tests/rtspserver.pl
+++ b/tests/rtspserver.pl
@@ -22,7 +22,8 @@
 #***************************************************************************
 
 BEGIN {
-    @INC=(@INC, $ENV{'srcdir'}, '.');
+    push(@INC, $ENV{'srcdir'}) if(defined $ENV{'srcdir'});
+    push(@INC, ".");
 }
 
 use strict;

diff --git a/tests/runtests.pl b/tests/runtests.pl
index 27fff4a954a1f1200faac2b919b3687fe4611b2b..0b2559ecd3b0f54d96cdb40766cdd60c9933ab44 100755 (executable)
--- a/tests/runtests.pl
+++ b/tests/runtests.pl
@@ -56,7 +56,8 @@
 # These should be the only variables that might be needed to get edited:
 
 BEGIN {
-    @INC=(@INC, $ENV{'srcdir'}, ".");
+    push(@INC, $ENV{'srcdir'}) if(defined $ENV{'srcdir'});
+    push(@INC, ".");
     # run time statistics needs Time::HiRes
     eval {
         no warnings "all";

diff --git a/tests/secureserver.pl b/tests/secureserver.pl
index 064fa84f5e06b227e5e7b754e1a7931dc3e0a2b1..36a902e5a0eecac25b44e7ece50deec93b29b8b3 100755 (executable)
--- a/tests/secureserver.pl
+++ b/tests/secureserver.pl
@@ -26,7 +26,8 @@
 # non-secure test harness servers.
 
 BEGIN {
-    @INC=(@INC, $ENV{'srcdir'}, '.');
+    push(@INC, $ENV{'srcdir'}) if(defined $ENV{'srcdir'});
+    push(@INC, ".");
 }
 
 use strict;

diff --git a/tests/tftpserver.pl b/tests/tftpserver.pl
index c5382ec66861377b383753b2e27bd721a8b5ceff..60fc32d19405ae0cbade51b7ad67b22100047ed8 100755 (executable)
--- a/tests/tftpserver.pl
+++ b/tests/tftpserver.pl
@@ -22,7 +22,8 @@
 #***************************************************************************
 
 BEGIN {
-    @INC=(@INC, $ENV{'srcdir'}, '.');
+    push(@INC, $ENV{'srcdir'}) if(defined $ENV{'srcdir'});
+    push(@INC, ".");
 }
 
 use strict;