From: Dave Mitchell <davem@fdisolutions.com>
Date: Mon, 25 Aug 2003 13:27:49 +0000 (+0100)
Subject: valgrind and /#/x
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e25e13010f33e943d98a02c701fcec90c1ad6a11;p=p5sagit%2Fp5-mst-13.2.git

valgrind and /#/x
Message-ID: <20030825122748.GA15560@fdgroup.com>

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

diff --git a/regcomp.c b/regcomp.c
index dedcd00..556922a 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -4285,7 +4285,8 @@ S_nextchar(pTHX_ RExC_state_t *pRExC_state)
 	    else if (*RExC_parse == '#') {
 		while (*RExC_parse && *RExC_parse != '\n')
 		    RExC_parse++;
-		RExC_parse++;
+		if (*RExC_parse)
+		    RExC_parse++;
 		continue;
 	    }
 	}