From: Dave Mitchell <davem@fdisolutions.com>
Date: Mon, 3 May 2004 20:26:22 +0000 (+0000)
Subject: [perl #28986] perl -e "open m" crashes Perl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e2ab214b14c9284fa9074628aa22936a93dab84f;p=p5sagit%2Fp5-mst-13.2.git

[perl #28986] perl -e "open m" crashes Perl

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

diff --git a/toke.c b/toke.c
index e8c1073..6899cb4 100644
--- a/toke.c
+++ b/toke.c
@@ -4681,8 +4681,8 @@ Perl_yylex(pTHX)
 	    if (isIDFIRST_lazy_if(s,UTF)) {
 		char *t;
 		for (d = s; isALNUM_lazy_if(d,UTF); d++) ;
-		t = skipspace(d);
-		if (strchr("|&*+-=!?:.", *t) && ckWARN_d(WARN_PRECEDENCE)
+		for (t=d; *t && isSPACE(*t); t++) ;
+		if ( *t && strchr("|&*+-=!?:.", *t) && ckWARN_d(WARN_PRECEDENCE)
 		    /* [perl #16184] */
 		    && !(t[0] == '=' && t[1] == '>')
 		) {