This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
465db51
)
fix dist/Safe/t/*.t that assumed '.' in @INC
author
David Mitchell
<davem@iabyn.com>
Fri, 7 Apr 2017 10:41:25 +0000
(11:41 +0100)
committer
David Mitchell
<davem@iabyn.com>
Fri, 7 Apr 2017 13:42:24 +0000
(14:42 +0100)
dist/Safe/t/safe3.t
patch
|
blob
|
blame
|
history
diff --git
a/dist/Safe/t/safe3.t
b/dist/Safe/t/safe3.t
index
1f99f49
..
c1b59c0
100644
(file)
--- a/
dist/Safe/t/safe3.t
+++ b/
dist/Safe/t/safe3.t
@@
-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/,