summaryrefslogtreecommitdiff
path: root/opcode.pl
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgs@consttype.org>2009-12-20 11:01:34 +0100
committerRafael Garcia-Suarez <rgs@consttype.org>2009-12-20 12:08:14 +0100
commit32e2a35d72e0f63c2f9a8de6041a24d35271a7ff (patch)
treeadfdad15adc11688671a3ae4df68e9e4173f71b5 /opcode.pl
parent1f5724d9cef367bf0da465162d6a9092c1aa173a (diff)
downloadperl-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-xopcode.pl2
1 files changed, 1 insertions, 1 deletions
diff --git a/opcode.pl b/opcode.pl
index 1b9add7629..01db025242 100755
--- a/opcode.pl
+++ b/opcode.pl
@@ -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.