From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 13 Oct 2000 18:40:48 +0000 (+0000)
Subject: Allow @+ and @- to be doublequoted, from Simon Cozens.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5d1d4326e46d23745bc8205fab794e804711b784;p=p5sagit%2Fp5-mst-13.2.git

Allow @+ and @- to be doublequoted, from Simon Cozens.

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

diff --git a/toke.c b/toke.c
index 4b65d62..b3c6674 100644
--- a/toke.c
+++ b/toke.c
@@ -1305,9 +1305,11 @@ S_scan_const(pTHX_ char *start)
 		*d++ = *s++;
 	}
 
-	/* check for embedded arrays (@foo, @:foo, @'foo, @{foo}, @$foo) */
+	/* check for embedded arrays
+	   (@foo, @:foo, @'foo, @{foo}, @$foo, @+, @-)
+	   */
 	else if (*s == '@' && s[1]
-		 && (isALNUM_lazy_if(s+1,UTF) || strchr(":'{$", s[1])))
+		 && (isALNUM_lazy_if(s+1,UTF) || strchr(":'{$+-", s[1])))
 	    break;
 
 	/* check for embedded scalars.  only stop if we're sure it's a