diff options
author | H.Merijn Brand <h.m.brand@xs4all.nl> | 2016-10-22 13:55:48 +0200 |
---|---|---|
committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2016-11-11 16:27:20 +0100 |
commit | 3d7c117d5246fe5390f3fda7bd31308799d54201 (patch) | |
tree | 25ed91492a78660a701502955918ad1c0a5737bc /t/test.pl | |
parent | 32db2dd39faf0a339c2c26769b98a1924ca09892 (diff) | |
download | perl-3d7c117d5246fe5390f3fda7bd31308799d54201.tar.gz |
Patch unit tests to explicitly insert "." into @INC when needed.
require calls now require ./ to be prepended to the file since . is no
longer guaranteed to be in @INC.
Diffstat (limited to 't/test.pl')
-rw-r--r-- | t/test.pl | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -652,7 +652,7 @@ sub _create_runperl { # Create the string to qx in runperl(). $runperl = "$ENV{PERL_RUNPERL_DEBUG} $runperl"; } unless ($args{nolib}) { - $runperl = $runperl . ' "-I../lib"'; # doublequotes because of VMS + $runperl = $runperl . ' "-I../lib" "-I." '; # doublequotes because of VMS } if ($args{switches}) { local $Level = 2; @@ -1261,6 +1261,7 @@ sub run_multiple_progs { open my $fh, '>', $tmpfile or die "Cannot open >$tmpfile: $!"; print $fh q{ BEGIN { + push @INC, '.'; open STDERR, '>&', STDOUT or die "Can't dup STDOUT->STDERR: $!;"; } |