Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
safe1.t	1.41 KB	-r--r--r--	2014-12-27 11:48
safe2.t	3.48 KB	-r--r--r--	2014-12-27 11:49
safe3.t	1.13 KB	-r--r--r--	2014-12-27 11:48
safeload.t	954 B	-r--r--r--	2014-12-27 11:48
safenamedcap.t	331 B	-r--r--r--	2014-12-27 11:48
safeops.t	8.61 KB	-r--r--r--	2014-12-27 11:49
saferegexp.t	620 B	-r--r--r--	2014-12-27 11:48
safesort.t	1.52 KB	-r--r--r--	2014-12-27 11:48
safeuniversal.t	959 B	-r--r--r--	2014-12-27 11:48
safeutf8.t	1.31 KB	-r--r--r--	2014-12-27 11:48
safewrap.t	1.16 KB	-r--r--r--	2014-12-27 11:48

Rename

#!perl -w

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

use strict;
use Safe 1.00;
use Test::More tests => 10;

my $safe = Safe->new('PLPerl');
$safe->permit_only(qw(:default sort));

# eval within an eval: the outer eval is compiled into the sub, the inner is
# compiled (by the outer) at runtime and so is subject to runtime opmask
my $sub1 = sub { eval " eval '1+1' " };
is $sub1->(), 2;

my $sub1w = $safe->wrap_code_ref($sub1);
is ref $sub1w, 'CODE';
is eval { $sub1w->() }, undef;
like $@, qr/eval .* trapped by operation mask/;

is $sub1->(), 2, 'original ref should be unaffected';

# setup args for wrap_code_refs_within including nested data
my @args = (42, [[ 0, { sub => $sub1 }, 2 ]], 24);
is $args[1][0][1]{sub}, $sub1;

$safe->wrap_code_refs_within(@args);
my $sub1w2 = $args[1][0][1]{sub};
isnt $sub1w2, $sub1;
is eval { $sub1w2->() }, undef;
like $@, qr/eval .* trapped by operation mask/;

# Avoid infinite recursion when looking for coderefs
my $r = $safe->reval(<<'END');
%a = ();
%b = (a => \%a);
$a{b} = \%b;
42;
END
is($r, 42);