This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
nextchar() abuse misses an optimisation
authorHugo van der Sanden <hv@crypt.org>
Tue, 22 Aug 2000 11:21:53 +0000 (12:21 +0100)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 22 Aug 2000 14:34:49 +0000 (14:34 +0000)
Message-Id: <200008221021.LAA03332@crypt.compulink.co.uk>

p4raw-id: //depot/perl@6770

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)