#28315 could crash when freeing ops with different pads

Add hook to parser to record current PL_comppad, then use this
when popping ops off the parser stack after parser error

p4raw-id: //depot/perl@29501

1 files changed, 1 insertions, 0 deletions

diff --git a/perly.h b/perly.h
index 73dc4b842c..a35ca82232 100644
--- a/perly.h
+++ b/perly.h
@@ -192,6 +192,7 @@ typedef union YYSTYPE
     char *pval;
     OP *opval;
     GV *gvval;
+    AV* padval;
 #ifdef PERL_IN_MADLY_C
     TOKEN* p_tkval;
     TOKEN* i_tkval;