romenskiy2012/curl
1
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2026-06-24 07:45:39 +03:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
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.
This commit is contained in:
Fabian Keil 2012-11-14 11:40:31 +01:00 • committed by Daniel Stenberg
parent 3c6ea7ca82
commit ca5f4e2135
7 changed files with 14 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

3
tests/ftpserver.pl
View file

@ -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";

3
tests/httpserver.pl
View file

@ -22,7 +22,8 @@
#***************************************************************************
BEGIN {
@INC=(@INC, $ENV{'srcdir'}, '.');
push(@INC, $ENV{'srcdir'}) if(defined $ENV{'srcdir'});
push(@INC, ".");
}
use strict;

3
tests/keywords.pl
View file

@ -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

3
tests/rtspserver.pl
View file

@ -22,7 +22,8 @@
#***************************************************************************
BEGIN {
@INC=(@INC, $ENV{'srcdir'}, '.');
push(@INC, $ENV{'srcdir'}) if(defined $ENV{'srcdir'});
push(@INC, ".");
}
use strict;

3
tests/runtests.pl
View file

@ -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";

3
tests/secureserver.pl
View file

@ -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;

3
tests/tftpserver.pl
View file

@ -22,7 +22,8 @@
#***************************************************************************
BEGIN {
@INC=(@INC, $ENV{'srcdir'}, '.');
push(@INC, $ENV{'srcdir'}) if(defined $ENV{'srcdir'});
push(@INC, ".");
}
use strict;