Searched refs:reval (Results 1 – 7 of 7) sorted by relevance
51 print $cpt->reval('$foo') == 9 ? "ok $t\n" : "not ok $t\n"; $t++;53 print $cpt->reval('$::foo') == 9 ? "ok $t\n" : "not ok $t\n"; $t++;54 print $cpt->reval('$main::foo') == 9 ? "ok $t\n" : "not ok $t\n"; $t++;56 print $cpt->reval('$test::foo') ? "not ok $t\n" : "ok $t\n"; $t++;57 print $cpt->reval('${"test::foo"}') ? "not ok $t\n" : "ok $t\n"; $t++;61 print $cpt->reval('$foo') ? "not ok $t\n" : "ok $t\n"; $t++;
29 $safe->reval( qq{\$_[1] = qq/\0/ x } . $masksize );32 $safe->reval( q{$x + $y} );45 $safe2->reval( q{$x + $y} );
42 $cpt->reval(q{ system("echo not ok 1"); });50 $cpt->reval(q{
231 sub reval { subroutine
3404 my $ret = $comp->reval($eval);3707 $cksum = $comp->reval($eval);4262 $cksum = $comp->reval($eval);
17537 (PACKAGE, ARRAYREF), varglob (VARNAME), reval (STRING), rdo (FILENAME),
1423 Subject: [PATCH] Re: [perl #23656] Safe reval bleeds local variable values