summaryrefslogtreecommitdiff
path: root/t/test.pl
diff options
context:
space:
mode:
authorH.Merijn Brand <h.m.brand@xs4all.nl>2016-10-22 13:55:48 +0200
committerH.Merijn Brand <h.m.brand@xs4all.nl>2016-11-11 16:27:20 +0100
commit3d7c117d5246fe5390f3fda7bd31308799d54201 (patch)
tree25ed91492a78660a701502955918ad1c0a5737bc /t/test.pl
parent32db2dd39faf0a339c2c26769b98a1924ca09892 (diff)
downloadperl-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.pl3
1 files changed, 2 insertions, 1 deletions
diff --git a/t/test.pl b/t/test.pl
index 349bcc9e3f..de2ada0328 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -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: $!;";
}