diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2000-08-02 15:53:56 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-02 17:01:58 +0000 |
| commit | 0e41cd871c178c65afa4b4a7cea4d1df2def8588 (patch) | |
| tree | 0210d8e2e3508f5f66c1d14a16cce6433d0a3fe1 /regexec.c | |
| parent | 9aad2c0ee9bd9366e680b5b7aafa650d1fd2663d (diff) | |
| download | perl-0e41cd871c178c65afa4b4a7cea4d1df2def8588.tar.gz | |
[ID 20000731.010] regex error
Message-Id: <200008021353.OAA24761@crypt.compulink.co.uk>
p4raw-id: //depot/perl@6493
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -641,7 +641,7 @@ Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos, than for "\n", so one should lower the limit for t? */ DEBUG_r(PerlIO_printf(Perl_debug_log, "Found /%s^%s/m, restarting lookup for check-string at offset %ld...\n", PL_colors[0],PL_colors[1], (long)(t + 1 - i_strpos))); - strpos = s = t + 1; + other_last = strpos = s = t + 1; goto restart; } t++; |