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 Safe 1.00;
use Test::More tests => 10;

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

# check basic argument passing and context for anon-subs
my $func = $safe->reval(q{ sub { @_ } });
is_deeply [ $func->() ], [ ];
is_deeply [ $func->("foo") ], [ "foo" ];

my $func1 = $safe->reval(<<'EOS');

# uses quotes in { "$a" <=> $b } to avoid the optimizer replacing the block
    # with a hardwired comparison
    { package Pkg; sub p_sort { return sort { "$a" <=> $b } @_; } }
                   sub l_sort { return sort { "$a" <=> $b } @_; }

return sub { return join(",",l_sort(@_)), join(",",Pkg::p_sort(@_)) }

EOS

is $@, '', 'reval should not fail';
is ref $func, 'CODE', 'reval should return a CODE ref';

my ($l_sorted, $p_sorted) = $func1->(3,1,2);
is $l_sorted, "1,2,3";
is $p_sorted, "1,2,3";

# check other aspects of closures created inside Safe

my $die_func = $safe->reval(q{ sub { die @_ if @_; 1 } });

# check $@ not affected by successful call
$@ = 42;
$die_func->();
is $@, 42, 'successful closure call should not alter $@';

{
    my $warns = 0;
    local $SIG{__WARN__} = sub { $warns++ };
    local $TODO = $] >= 5.013 ? "Doesn't die in 5.13" : undef;
    ok !eval { $die_func->("died\n"); 1 }, 'should die';
    is $@, "died\n", '$@ should be set correctly';
    local $TODO = "Shouldn't warn";
    is $warns, 0;
}