6 if ($Config{'extensions'} !~ /\bOpcode\b/) {
19 $c->permit(qw(require caller));
21 my $no_warn_redef = ($] != 5.008009)
22 ? q(no warnings 'redefine';)
23 : q($SIG{__WARN__}=sub{};);
24 my $r = $c->reval($no_warn_redef . q!
25 sub UNIVERSAL::isa { "pwned" }
26 (bless[],"Foo")->isa("Foo");
29 is( $r, "pwned", "isa overriden in compartment" );
30 is( (bless[],"Foo")->isa("Foo"), 1, "... but not outside" );
34 $r = $c->reval($no_warn_redef . q!
35 sub UNIVERSAL::can { "pwned" }
36 (bless[],"Foo")->can("foo");
39 is( $r, "pwned", "can overriden in compartment" );
40 is( (bless[],"Foo")->can("foo"), \&Foo::foo, "... but not outside" );
43 utf8::is_utf8("\x{100}");
45 is( $@, '', 'can call utf8::is_valid' );
46 is( $r, 1, '... returns 1' );