This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix dist/Safe/t/*.t that assumed '.' in @INC
authorDavid Mitchell <davem@iabyn.com>
Fri, 7 Apr 2017 10:41:25 +0000 (11:41 +0100)
committerDavid Mitchell <davem@iabyn.com>
Fri, 7 Apr 2017 13:42:24 +0000 (14:42 +0100)
dist/Safe/t/safe3.t

index 1f99f49..c1b59c0 100644 (file)
@@ -38,7 +38,7 @@ print $fh <<EOF;
 \$_[1] = "\0" x $masksize;
 EOF
 close $fh;
-$safe2->rdo('nasty.pl');
+$safe2->rdo('./nasty.pl');
 $safe2->reval( q{$x + $y} );
 # Written this way to keep the Test::More that comes with perl 5.6.2 happy
 ok( $@ =~ /^'?addition \(\+\)'? trapped by operation mask/,