X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perly.y;h=b181d5fb39279a413138066fe0675bcd44642943;hb=daff0e373f3630eaa9dbded0adcc04185f454487;hp=608f9e0549f808b0e5bc58f299405d4931c8fe68;hpb=fa83b5b6263413f922909c255e021c32c808b32d;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perly.y b/perly.y
index 608f9e0..b181d5f 100644
--- a/perly.y
+++ b/perly.y
@@ -1,6 +1,6 @@
 /*    perly.y
  *
- *    Copyright (c) 1991-1994, Larry Wall
+ *    Copyright (c) 1991-1997, Larry Wall
  *
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
@@ -9,7 +9,7 @@
 
 /*
  * 'I see,' laughed Strider.  'I look foul and feel fair.  Is that it?
- * All that is gold does not glitter, not all those that wander are lost.'
+ * All that is gold does not glitter, not all those who wander are lost.'
  */
 
 %{
@@ -277,15 +277,15 @@ subrout	:	SUB startsub subname proto subbody
 	;
 
 startsub:	/* NULL */	/* start a regular subroutine scope */
-			{ $$ = start_subparse(0); }
+			{ $$ = start_subparse(FALSE, 0); }
 	;
 
 startanonsub:	/* NULL */	/* start an anonymous subroutine scope */
-			{ $$ = start_subparse(CVf_ANON); }
+			{ $$ = start_subparse(FALSE, CVf_ANON); }
 	;
 
 startformsub:	/* NULL */	/* start a format subroutine scope */
-			{ $$ = start_subparse(CVf_FORMAT); }
+			{ $$ = start_subparse(TRUE, 0); }
 	;
 
 subname	:	WORD	{ char *name = SvPVx(((SVOP*)$1)->op_sv, na);