handle cloning of parsers on the save stack

p4raw-id: //depot/perl@29678

1 files changed, 4 insertions, 0 deletions

diff --git a/scope.c b/scope.c
index abe9a0542b..d15d2d93c1 100644
--- a/scope.c
+++ b/scope.c
@@ -1023,6 +1023,10 @@ Perl_leave_scope(pTHX_ I32 base)
 		Copy(state, &PL_reg_state, 1, struct re_save_state);
 	    }
 	    break;
+	case SAVEt_PARSER:
+	    ptr = SSPOPPTR;
+	    parser_free((yy_parser *) ptr);
+	    break;
 	default:
 	    Perl_croak(aTHX_ "panic: leave_scope inconsistency");
 	}