diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-12-01 10:36:44 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-12-01 10:36:44 +0000 |
| commit | 601cee3b44d5dc2533c9ca9da3e2820c4464c2af (patch) | |
| tree | 32dc6fb6c508ef5b76316f454e0fb01b304c2539 /scope.c | |
| parent | 7623d4262995987d3de73f116de43554c077f9c7 (diff) | |
| download | perl-601cee3b44d5dc2533c9ca9da3e2820c4464c2af.tar.gz | |
For SAVEHINTS(), re-order the savestack to be (?:PTR, )? INT, PTR.
This brings it to the same order as save_aelem() or save_pushi32ptr().
p4raw-id: //depot/perl@34964
Diffstat (limited to 'scope.c')
| -rw-r--r-- | scope.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -902,9 +902,9 @@ Perl_leave_scope(pTHX_ I32 base) SvREFCNT_dec(MUTABLE_SV(GvHV(PL_hintgv))); GvHV(PL_hintgv) = NULL; } - *(I32*)&PL_hints = (I32)SSPOPINT; Perl_refcounted_he_free(aTHX_ PL_compiling.cop_hints_hash); PL_compiling.cop_hints_hash = (struct refcounted_he *) SSPOPPTR; + *(I32*)&PL_hints = (I32)SSPOPINT; if (PL_hints & HINT_LOCALIZE_HH) { SvREFCNT_dec(MUTABLE_SV(GvHV(PL_hintgv))); GvHV(PL_hintgv) = MUTABLE_HV(SSPOPPTR); |