when anon subs are cloned, the 'assign once only' flag should be

set for all state vars in the pad.
(Nicholas worked up the same fix - spooky action at a distance!)

p4raw-id: //depot/perl@31835

1 files changed, 3 insertions, 0 deletions

diff --git a/pad.c b/pad.c
index 44fafb67ea..6e33495fcb 100644
--- a/pad.c
+++ b/pad.c
@@ -1517,6 +1517,9 @@ Perl_cv_clone(pTHX_ CV *proto)
 		else
 		    sv = newSV(0);
 		SvPADMY_on(sv);
+		/* reset the 'assign only once' flag on each state var */
+		if (SvPAD_STATE(namesv))
+		    SvPADSTALE_on(sv);
 	    }
 	}
 	else if (IS_PADGV(ppad[ix]) || IS_PADCONST(ppad[ix])) {