diff options
author | Rafael Garcia-Suarez <rgs@consttype.org> | 2009-12-20 11:01:34 +0100 |
---|---|---|
committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2009-12-20 12:08:14 +0100 |
commit | 32e2a35d72e0f63c2f9a8de6041a24d35271a7ff (patch) | |
tree | adfdad15adc11688671a3ae4df68e9e4173f71b5 /opcode.pl | |
parent | 1f5724d9cef367bf0da465162d6a9092c1aa173a (diff) | |
download | perl-32e2a35d72e0f63c2f9a8de6041a24d35271a7ff.tar.gz |
Make eval {} compile directly to OP_ENTERTRY
This way, it's correctly caught and blocked by Safe, separately
from eval "".
Diffstat (limited to 'opcode.pl')
-rwxr-xr-x | opcode.pl | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1068,7 +1068,7 @@ hintseval eval hints ck_svconst s$ entereval eval "string" ck_eval d% S leaveeval eval "string" exit ck_null 1 S #evalonce eval constant string ck_null d1 S -entertry eval {block} ck_null | +entertry eval {block} ck_eval d% leavetry eval {block} exit ck_null @ # Get system info. |