From: Hugo van der Sanden <hv@crypt.org>
Date: Tue, 22 Aug 2000 11:21:53 +0000 (+0100)
Subject: nextchar() abuse misses an optimisation
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=769cfde878d2292062fc39e70db12f128627e07d;p=p5sagit%2Fp5-mst-13.2.git

nextchar() abuse misses an optimisation
Message-Id: <200008221021.LAA03332@crypt.compulink.co.uk>

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

diff --git a/regcomp.c b/regcomp.c
index 0c23931..723cbbe 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -2468,9 +2468,9 @@ tryagain:
 	    ret = reg_node(BOL);
 	break;
     case '$':
-	if (PL_regcomp_parse[1]) 
-	    PL_seen_zerolen++;
 	nextchar();
+	if (*PL_regcomp_parse) 
+	    PL_seen_zerolen++;
 	if (PL_regflags & PMf_MULTILINE)
 	    ret = reg_node(MEOL);
 	else if (PL_regflags & PMf_SINGLELINE)