More fixups for thrperl integration.

p4raw-id: //depot/perl@27

1 files changed, 3 insertions, 2 deletions

diff --git a/perly.y b/perly.y
index be6fe98f20..be3d0c7763 100644
--- a/perly.y
+++ b/perly.y
@@ -288,8 +288,9 @@ startformsub:	/* NULL */	/* start a format subroutine scope */
 			{ $$ = start_subparse(TRUE, 0); }
 	;
 
-subname	:	WORD	{ char *name = SvPVx(((SVOP*)$1)->op_sv, na);
-			  if (strEQ(name, "BEGIN") || strEQ(name, "END"))
+subname	:	WORD	{ char *name = SvPV(((SVOP*)$1)->op_sv, na);
+			  if (strEQ(name, "BEGIN") || strEQ(name, "END")
+			      || strEQ(name, "RESTART"))
 			      CvUNIQUE_on(compcv);
 			  $$ = $1; }
 	;