[perl5.git] / dist / Safe / t / safesecurity.t

#!perl

BEGIN {
    require Config;
    import Config;
    if ($Config{'extensions'} !~ /\bOpcode\b/) {
	print "1..0\n";
	exit 0;
    }
}

use strict;
use warnings;
use Test::More;
use Safe;
plan(tests => 1);

my $c = new Safe;

{
    package My::Controller;
    sub jopa { return "jopa" }
}

$c->reval(q{
    package My::Controller;
    sub jopa { return "hacked" }

    My::Controller->jopa; # let it cache package
});

is(My::Controller->jopa, "jopa", "outside packages cannot be overriden");
Commit	Line	Data
23c3e71c	1	#!perl
	2
	3	BEGIN {
	4	require Config;
	5	import Config;
	6	if ($Config{'extensions'} !~ /\bOpcode\b/) {
	7	print "1..0\n";
	8	exit 0;
	9	}
	10	}
	11
	12	use strict;
	13	use warnings;
	14	use Test::More;
	15	use Safe;
	16	plan(tests => 1);
	17
	18	my $c = new Safe;
	19
	20	{
	21	package My::Controller;
	22	sub jopa { return "jopa" }
	23	}
	24
	25	$c->reval(q{
	26	package My::Controller;
	27	sub jopa { return "hacked" }
205b8145	28
23c3e71c	29	My::Controller->jopa; # let it cache package
	30	});
	31
	32	is(My::Controller->jopa, "jopa", "outside packages cannot be overriden");