safe3.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!perl
BEGIN {
chdir 't' if -d 't';
}
{
print "1..0\n";
exit 0;
}
}
use strict;
use warnings;
use Safe;
# Attempt to change the opmask from within the safe compartment
# Check that it didn't work
'opmask still in place with reval' );
print $fh <<EOF;
\$_[1] = "\0" x $masksize;
EOF
'opmask still in place with rdo' );