state variables shouldn't be shared between anon subs

p4raw-id: //depot/perl@31833

1 files changed, 6 insertions, 0 deletions

diff --git a/op.c b/op.c
index ca488a279b..1ebc84c325 100644
--- a/op.c
+++ b/op.c
@@ -395,6 +395,12 @@ Perl_allocmy(pTHX_ const char *const name)
 		    0, /*  not fake */
 		    PL_parser->in_my == KEY_state
     );
+    /* anon sub prototypes contains state vars should always be cloned,
+     * otherwise the state var would be shared between anon subs */
+
+    if (PL_parser->in_my == KEY_state && CvANON(PL_compcv))
+	CvCLONE_on(PL_compcv);
+
     return off;
 }