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