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 (file)
--- 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;
            }
        }