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 (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);