1#!perl -w 2 3BEGIN { 4 require Config; import Config; 5 if ($Config{'extensions'} !~ /\bOpcode\b/) { 6 print "1..0\n"; 7 exit 0; 8 } 9} 10 11use Test::More tests => 3; 12use Safe; 13 14my $c; my $r; 15my $snippet = q{ 16 my $foo = qr/foo/; 17 ref $foo; 18}; 19$c = new Safe; 20$r = $c->reval($snippet); 21is( $r, "Safe::Root0::Regexp" ); 22$r or diag $@; 23 24# once more with the same compartment 25# (where DESTROY has been cleaned up) 26$r = $c->reval($snippet); 27is( $r, "Safe::Root0::Regexp" ); 28$r or diag $@; 29 30# try with a new compartment 31$c = new Safe; 32$r = $c->reval($snippet); 33is( $r, "Safe::Root1::Regexp" ); 34$r or diag $@; 35