[perl #27040] - hints hash was being double freed on scope exit

p4raw-id: //depot/perl@22594

1 files changed, 2 insertions, 4 deletions

diff --git a/op.c b/op.c
index 344130c452..a13a7ef1b9 100644
--- a/op.c
+++ b/op.c
@@ -1763,13 +1763,11 @@ Perl_scope(pTHX_ OP *o)
     return o;
 }
 
+/* XXX kept for BINCOMPAT only */
 void
 Perl_save_hints(pTHX)
 {
-    SAVEI32(PL_hints);
-    SAVESPTR(GvHV(PL_hintgv));
-    GvHV(PL_hintgv) = newHVhv(GvHV(PL_hintgv));
-    SAVEFREESV(GvHV(PL_hintgv));
+    Perl_croak(aTHX_ "internal error: obsolete function save_hints() called");
 }
 
 int