generic-library/curl
1
0
Fork 0
Code Issues Pull Requests Releases 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 { BEGIN {
@INC=(@INC, $ENV{'srcdir'}, '.'); push(@INC, $ENV{'srcdir'}) if(defined $ENV{'srcdir'});
push(@INC, ".");
# sub second timestamping needs Time::HiRes # sub second timestamping needs Time::HiRes
eval { eval {
no warnings "all"; no warnings "all";

3
tests/httpserver.pl
View File

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

3
tests/keywords.pl
View File

@@ -23,7 +23,8 @@
use strict; use strict;
@INC=(@INC, $ENV{'srcdir'}, "."); push(@INC, $ENV{'srcdir'}) if(defined $ENV{'srcdir'});
push(@INC, ".");
require "getpart.pm"; # array functions require "getpart.pm"; # array functions

3
tests/rtspserver.pl
View File

@@ -22,7 +22,8 @@
#*************************************************************************** #***************************************************************************
BEGIN { BEGIN {
@INC=(@INC, $ENV{'srcdir'}, '.'); push(@INC, $ENV{'srcdir'}) if(defined $ENV{'srcdir'});
push(@INC, ".");
} }
use strict; 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: # These should be the only variables that might be needed to get edited:
BEGIN { BEGIN {
@INC=(@INC, $ENV{'srcdir'}, "."); push(@INC, $ENV{'srcdir'}) if(defined $ENV{'srcdir'});
push(@INC, ".");
# run time statistics needs Time::HiRes # run time statistics needs Time::HiRes
eval { eval {
no warnings "all"; no warnings "all";

3
tests/secureserver.pl
View File

@@ -26,7 +26,8 @@
# non-secure test harness servers. # non-secure test harness servers.
BEGIN { BEGIN {
@INC=(@INC, $ENV{'srcdir'}, '.'); push(@INC, $ENV{'srcdir'}) if(defined $ENV{'srcdir'});
push(@INC, ".");
} }
use strict; use strict;

3
tests/tftpserver.pl
View File

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