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 | 25bd868b392ec92b3afcc8681ec76d2f4824879f (patch) | |
| tree | ad098e52d31107e77862c1f84d2978ece4ebc1a3 | |
| parent | 690392b4ce560da743851796307ce83b9d70803b (diff) | |
| download | perl-25bd868b392ec92b3afcc8681ec76d2f4824879f.tar.gz | |
nextchar() abuse misses an optimisation
Message-Id: <200008221021.LAA03332@crypt.compulink.co.uk>
p4raw-id: //depot/perl@6770
| -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) |