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 | |
| 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
| -rw-r--r-- | regexec.c | 2 | ||||
| -rw-r--r-- | t/op/re_tests | 1 |
2 files changed, 2 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++; diff --git a/t/op/re_tests b/t/op/re_tests index 421442d9aa..8df1fc9f5f 100644 --- a/t/op/re_tests +++ b/t/op/re_tests @@ -760,5 +760,6 @@ tt+$ xxxtt y - - '(?!\A)x'm a\nxb\n y - - ^(a(b)?)+$ aba y -$1-$2- -a-- ^(aa(bb)?)+$ aabbaa y -$1-$2- -aa-- +'^.{9}abc.*\n'm 123\nabcabcabcabc\n y - - ^(a)?a$ a y -$1- -- ^(a)?(?(1)a|b)+$ a n - - |