If we're going to introduce an @@ array, we'll want to be able to parse $#@ too
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 22 May 2009 14:47:22 +0000 (16:47 +0200)
committerRafael Garcia-Suarez <rgs@consttype.org>
Tue, 4 May 2010 22:00:42 +0000 (00:00 +0200)
toke.c

diff --git a/toke.c b/toke.c
index faa1664..e9841f8 100644 (file)
--- 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);