fix dist/Safe/t/*.t that assumed '.' in @INC

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/,