diff options
| -rwxr-xr-x | tests/ftpserver.pl | 3 | ||||
| -rwxr-xr-x | tests/httpserver.pl | 3 | ||||
| -rwxr-xr-x | tests/keywords.pl | 3 | ||||
| -rwxr-xr-x | tests/rtspserver.pl | 3 | ||||
| -rwxr-xr-x | tests/runtests.pl | 3 | ||||
| -rwxr-xr-x | tests/secureserver.pl | 3 | ||||
| -rwxr-xr-x | tests/tftpserver.pl | 3 |
7 files changed, 14 insertions, 7 deletions
diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl index 6e6f691d4..45b343635 100755 --- 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 d5c4dfb27..a38c3cebd 100755 --- 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 523bde1fc..28646ad00 100755 --- 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 515128d7b..07a588ecd 100755 --- 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 27fff4a95..0b2559ecd 100755 --- 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 064fa84f5..36a902e5a 100755 --- 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 c5382ec66..60fc32d19 100755 --- 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; |