Commit ca5f4e21 authored by Fabian Keil's avatar Fabian Keil Committed by Daniel Stenberg
Browse files

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.
parent 3c6ea7ca

tests/ftpserver.pl

+2 −1
Original line number Diff line number Diff line
@@ -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";

tests/httpserver.pl

+2 −1
Original line number Diff line number Diff line
@@ -22,7 +22,8 @@ 
#***************************************************************************



BEGIN {

    @INC=(@INC, $ENV{'srcdir'}, '.');

    push(@INC, $ENV{'srcdir'}) if(defined $ENV{'srcdir'});

    push(@INC, ".");

}



use strict;

tests/keywords.pl

+2 −1
Original line number Diff line number Diff line
@@ -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

tests/rtspserver.pl

+2 −1
Original line number Diff line number Diff line
@@ -22,7 +22,8 @@ 
#***************************************************************************



BEGIN {

    @INC=(@INC, $ENV{'srcdir'}, '.');

    push(@INC, $ENV{'srcdir'}) if(defined $ENV{'srcdir'});

    push(@INC, ".");

}



use strict;

tests/runtests.pl

+2 −1
Original line number Diff line number Diff line
@@ -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";