From: Philip Newton <pne@cpan.org>
Date: Wed, 17 Apr 2002 19:48:09 +0000 (+0200)
Subject: @:foo?
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=da6eedaa8c807f963938cbb14de34b87260db473;p=p5sagit%2Fp5-mst-13.2.git

@:foo?
Message-ID: <v6drbu0mkupaklru4efcq40lv7d4vajdp1@4ax.com>

p4raw-id: //depot/perl@15979
---

diff --git a/toke.c b/toke.c
index 5571500..2e862b4 100644
--- a/toke.c
+++ b/toke.c
@@ -1181,7 +1181,7 @@ S_sublex_done(pTHX)
   It stops processing as soon as it finds an embedded $ or @ variable
   and leaves it to the caller to work out what's going on.
 
-  @ in pattern could be: @foo, @{foo}, @$foo, @'foo, @:foo.
+  @ in pattern could be: @foo, @{foo}, @$foo, @'foo, @::foo.
 
   $ in pattern could be $foo or could be tail anchor.  Assumption:
   it's a tail anchor if $ is the last thing in the string, or if it's
@@ -1356,7 +1356,7 @@ S_scan_const(pTHX_ char *start)
 	}
 
 	/* check for embedded arrays
-	   (@foo, @:foo, @'foo, @{foo}, @$foo, @+, @-)
+	   (@foo, @::foo, @'foo, @{foo}, @$foo, @+, @-)
 	   */
 	else if (*s == '@' && s[1]
 		 && (isALNUM_lazy_if(s+1,UTF) || strchr(":'{$+-", s[1])))