fix SEGV with eval("package Foo {")

OPs relating to the package name and version were subject to double
freeing during error recovery from an incomplete package block.  Fixed by
using the op_latefree mechanism to shift the op free time.

1 files changed, 11 insertions, 1 deletions

diff --git a/perly.y b/perly.y
index 691ae94fed..dcb6114d31 100644
--- a/perly.y
+++ b/perly.y
@@ -667,9 +667,16 @@ package :	PACKAGE WORD WORD ';'
 
 package_block:	PACKAGE WORD WORD '{' remember
 			{
+			  int save_3_latefree = $3->op_latefree;
+			  $3->op_latefree = 1;
 			  package($3);
-			  if ($2)
+			  $3->op_latefree = save_3_latefree;
+			  if ($2) {
+			      int save_2_latefree = $2->op_latefree;
+			      $2->op_latefree = 1;
 			      package_version($2);
+			      $2->op_latefree = save_2_latefree;
+			  }
 			}
 		    lineseq '}'
 			{ if (PL_parser->copline > (line_t)IVAL($4))
@@ -677,6 +684,9 @@ package_block:	PACKAGE WORD WORD '{' remember
 			  $$ = block_end($5, $7);
 			  TOKEN_GETMAD($4,$$,'{');
 			  TOKEN_GETMAD($8,$$,'}');
+			  op_free($3);
+			  if ($2)
+			      op_free($2);
 			}
 	;