diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2000-08-22 12:21:53 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-22 14:34:49 +0000 |
| commit | 769cfde878d2292062fc39e70db12f128627e07d (patch) | |
| tree | ad098e52d31107e77862c1f84d2978ece4ebc1a3 /regcomp.c | |
| parent | c8b1766e5c808cce22859475663ce072774ff883 (diff) | |
| download | perl-769cfde878d2292062fc39e70db12f128627e07d.tar.gz | |
nextchar() abuse misses an optimisation
Message-Id: <200008221021.LAA03332@crypt.compulink.co.uk>
p4raw-id: //depot/perl@6770
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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) |