From b3ca2e834c3607fd8aa8736a51aa3a2b8bba1044 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Fri, 31 Mar 2006 13:45:57 +0000 Subject: Serialise changes to %^H onto the current COP. Return the compile time state of %^H as an eleventh value from caller. This allows users to write pragmas. p4raw-id: //depot/perl@27643 --- scope.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'scope.c') diff --git a/scope.c b/scope.c index 7b7682388a..5e4193ac17 100644 --- a/scope.c +++ b/scope.c @@ -890,6 +890,8 @@ Perl_leave_scope(pTHX_ I32 base) GvHV(PL_hintgv) = NULL; } *(I32*)&PL_hints = (I32)SSPOPINT; + Perl_refcounted_he_free(aTHX_ PL_compiling.cop_hints); + PL_compiling.cop_hints = (struct refcounted_he *) SSPOPPTR; if (PL_hints & HINT_LOCALIZE_HH) { SvREFCNT_dec((SV*)GvHV(PL_hintgv)); GvHV(PL_hintgv) = (HV*)SSPOPPTR; -- cgit v1.2.1