diff options
| author | Rick Delaney <rick@consumercontact.com> | 2007-09-06 10:40:39 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-09-10 09:43:14 +0000 |
| commit | 934dcd01a67d880a33ac86f3f36dcf355d6f8f7a (patch) | |
| tree | 716aa31407bc260602c7c1d818114a4a5dfc03f6 /pp_hot.c | |
| parent | fef074f7c29876fb6c02244b464e092f2047abda (diff) | |
| download | perl-934dcd01a67d880a33ac86f3f36dcf355d6f8f7a.tar.gz | |
Re: [perl #44623] Optimized magic_setisa has bug
Message-ID: <20070906184039.GG9260@bort.ca>
p4raw-id: //depot/perl@31838
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -1005,6 +1005,8 @@ PP(pp_aassign) } TAINT_NOT; } + if (PL_delaymagic & DM_ARRAY) + SvSETMAGIC((SV*)ary); break; case SVt_PVHV: { /* normal hash */ SV *tmpstr; @@ -1122,9 +1124,6 @@ PP(pp_aassign) PL_egid = PerlProc_getegid(); } PL_tainting |= (PL_uid && (PL_euid != PL_uid || PL_egid != PL_gid)); - - if (PL_delaymagic & DM_ARRAY && SvMAGICAL((SV*)ary)) - mg_set((SV*)ary); } PL_delaymagic = 0; |