From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 22 May 2009 14:47:22 +0000 (+0200)
Subject: If we're going to introduce an @@ array, we'll want to be able to parse $#@ too
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c0b977fd793319b0b362593c57555d28997fae84;p=p5sagit%2Fp5-mst-13.2.git

If we're going to introduce an @@ array, we'll want to be able to parse $#@ too
---

diff --git a/toke.c b/toke.c
index faa1664..e9841f8 100644
--- a/toke.c
+++ b/toke.c
@@ -5714,7 +5714,7 @@ Perl_yylex(pTHX)
 	    }
 	}
 
-	if (s[1] == '#' && (isIDFIRST_lazy_if(s+2,UTF) || strchr("{$:+-", s[2]))) {
+	if (s[1] == '#' && (isIDFIRST_lazy_if(s+2,UTF) || strchr("{$:+-@", s[2]))) {
 	    PL_tokenbuf[0] = '@';
 	    s = scan_ident(s + 1, PL_bufend, PL_tokenbuf + 1,
 			   sizeof PL_tokenbuf - 1, FALSE);