diff options
| author | Stephen McCamant <smcc@mit.edu> | 1997-12-20 09:16:14 -0600 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-03-02 03:28:28 +0000 |
| commit | 161b7d1635bc830b9c733355ab423626eadf9ae9 (patch) | |
| tree | a4910bbe25ce9e9991920dbbf1c82792dfc950d8 /pp_hot.c | |
| parent | f3ea7b5ee70397733e54550d64ca43f4288e744f (diff) | |
| download | perl-161b7d1635bc830b9c733355ab423626eadf9ae9.tar.gz | |
[win32] this one with adjusted test numbers
Message-Id: <m0xjWFq-000EZeC@alias-2.pr.mcs.net>
Subject: [PERL] [PATCH] Fix local $a[0] and local $h{a}
p4raw-id: //depot/win32/perl@614
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1310,7 +1310,7 @@ PP(pp_helem) if (HvNAME(hv) && isGV(*svp)) save_gp((GV*)*svp, !(op->op_flags & OPf_SPECIAL)); else - save_svref(svp); + save_helem(hv, keysv, svp); } else if (op->op_private & OPpDEREF) vivify_ref(*svp, op->op_private & OPpDEREF); @@ -2261,7 +2261,7 @@ PP(pp_aelem) RETURN; } if (op->op_private & OPpLVAL_INTRO) - save_svref(svp); + save_aelem(av, elem, svp); else if (op->op_private & OPpDEREF) vivify_ref(*svp, op->op_private & OPpDEREF); } |