First stab at using the pad to store the serialised hints data.

This approach is almost certainly not only wrong, but also doomed.
But it's needed to build a correct solution.

p4raw-id: //depot/perl@27768

1 files changed, 2 insertions, 0 deletions

diff --git a/op.c b/op.c
index 851d35e2bf..64dc9f2e7c 100644
--- a/op.c
+++ b/op.c
@@ -3956,7 +3956,9 @@ Perl_newSTATEOP(pTHX_ I32 flags, char *label, OP *o)
         cop->cop_io = newSVsv(PL_curcop->cop_io) ;
     cop->cop_hints = PL_curcop->cop_hints;
     if (cop->cop_hints) {
+	HINTS_REFCNT_LOCK;
 	cop->cop_hints->refcounted_he_refcnt++;
+	HINTS_REFCNT_UNLOCK;
     }
 
     if (PL_copline == NOLINE)