diff options
| author | Brandon Black <blblack@gmail.com> | 2007-08-12 06:36:14 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-08-31 09:07:51 +0000 |
| commit | 89c14e2ec1b845cd5ec17986d2c65288a7da7ba8 (patch) | |
| tree | 49daca85a19bfaf40679d19633871f2933add12b /pp_hot.c | |
| parent | 53e0272ff6711924ddbd8568bad2a01574e7b545 (diff) | |
| download | perl-89c14e2ec1b845cd5ec17986d2c65288a7da7ba8.tar.gz | |
Re: optimize push @ISA, (was Re: parent.pm at http://corion.net/perl-dev)
From: "Brandon Black" <blblack@gmail.com>
Message-ID: <84621a60708121336m13dcf9e5uac624fb246f2a79c@mail.gmail.com>
p4raw-id: //depot/perl@31770
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 11 |
1 files changed, 3 insertions, 8 deletions
@@ -1122,6 +1122,9 @@ 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; @@ -1152,14 +1155,6 @@ PP(pp_aassign) *relem++ = (lelem <= lastlelem) ? *lelem++ : &PL_sv_undef; } - /* This is done at the bottom and in this order because - mro_isa_changed_in() can throw exceptions */ - if(PL_delayedisa) { - HV* stash = PL_delayedisa; - PL_delayedisa = NULL; - mro_isa_changed_in(stash); - } - RETURN; } |