Move SvPVIV out of ->op_sv of METHOD_NAMED into the pad, fixes

threading issue. Should perhaps be a PVOP to save memory, but then
we have nowhere to store the hash of the function!

p4raw-id: //depot/perl@18640

1 files changed, 1 insertions, 0 deletions

diff --git a/op.c b/op.c
index 41bc9d0a46..610c0e5a22 100644
--- a/op.c
+++ b/op.c
@@ -6080,6 +6080,7 @@ Perl_peep(pTHX_ register OP *o)
 	    if (cSVOPo->op_private & OPpCONST_STRICT)
 		no_bareword_allowed(o);
 #ifdef USE_ITHREADS
+	case OP_METHOD_NAMED:
 	    /* Relocate sv to the pad for thread safety.
 	     * Despite being a "constant", the SV is written to,
 	     * for reference counts, sv_upgrade() etc. */