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.h | |
| 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.h')
| -rw-r--r-- | opcode.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1506,7 +1506,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ MEMBER_TO_FPTR(Perl_ck_svconst), /* hintseval */ MEMBER_TO_FPTR(Perl_ck_eval), /* entereval */ MEMBER_TO_FPTR(Perl_ck_null), /* leaveeval */ - MEMBER_TO_FPTR(Perl_ck_null), /* entertry */ + MEMBER_TO_FPTR(Perl_ck_eval), /* entertry */ MEMBER_TO_FPTR(Perl_ck_null), /* leavetry */ MEMBER_TO_FPTR(Perl_ck_fun), /* ghbyname */ MEMBER_TO_FPTR(Perl_ck_fun), /* ghbyaddr */ @@ -1884,7 +1884,7 @@ EXTCONST U32 PL_opargs[] = { 0x00000c04, /* hintseval */ 0x00003640, /* entereval */ 0x00002200, /* leaveeval */ - 0x00000600, /* entertry */ + 0x00001640, /* entertry */ 0x00000800, /* leavetry */ 0x00003600, /* ghbyname */ 0x00022800, /* ghbyaddr */ |