[perl #56880][PATCH] can't use v[0-9]+ as label (vstring)

[Renée Bäcker <renee.baecker@smart-websolutions.de>]

Hi,

attached is a small patch that allows v[0-9]+ to be used as a label.

Cheers,
Renee

version.t.patch

--- ../orig/perl-5.10.0/toke.c	2007-12-18 11:47:08.000000000 +0100
+++ toke.c	2008-10-28 10:51:12.000000000 +0100
@@ -5106,6 +5106,9 @@
 		s = scan_num(s, &pl_yylval);
 		TERM(THING);
 	    }
+            else if ( *start == ':' ){
+               goto keylookup;
+            }  
 	    /* avoid v123abc() or $h{v1}, allow C<print v10;> */
 	    else if (!isALPHA(*start) && (PL_expect == XTERM
 			|| PL_expect == XREF || PL_expect == XSTATE

---

Follow-Ups from:

"Rafael Garcia-Suarez" <rgarciasuarez@gmail.com>

---

[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index][Thread Index][Top&Search][Original]

---