8 require Config; import Config;
9 if ($Config{'extensions'} !~ /\bOpcode\b/
10 && $Config{'extensions'} !~ /\bPOSIX\b/
11 && $Config{'osname'} ne 'VMS')
21 use Test::More tests => 2;
27 my $masksize = ceil( Opcode::opcodes / 8 );
28 # Attempt to change the opmask from within the safe compartment
29 $safe->reval( qq{\$_[1] = qq/\0/ x } . $masksize );
31 # Check that it didn't work
32 $safe->reval( q{$x + $y} );
33 # Written this way to keep the Test::More that comes with perl 5.6.2 happy
34 ok( $@ =~ /^'?addition \(\+\)'? trapped by operation mask/,
35 'opmask still in place with reval' );
40 open my $fh, '>nasty.pl' or die "Can't write nasty.pl: $!\n";
42 \$_[1] = "\0" x $masksize;
45 $safe2->rdo('nasty.pl');
46 $safe2->reval( q{$x + $y} );
47 # Written this way to keep the Test::More that comes with perl 5.6.2 happy
48 ok( $@ =~ /^'?addition \(\+\)'? trapped by operation mask/,
49 'opmask still in place with rdo' );
50 END { unlink 'nasty.pl' }