diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2000-10-30 01:33:26 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-11 04:38:24 +0000 |
| commit | 2e36c9299e5be15e144ba340dadeda60948efca7 (patch) | |
| tree | 5c74aadb60c29e5e8a1589cdf5e333416102a73f | |
| parent | b8a8b28157b126326ef2c02ac702e02497e7d1b2 (diff) | |
| download | perl-2e36c9299e5be15e144ba340dadeda60948efca7.tar.gz | |
Re: [ID 20001029.005] Regex error: "cd. (A. Tw)" !~ /\((\w\. \w+)\)/
Message-Id: <200010300133.BAA10390@crypt.compulink.co.uk>
p4raw-id: //depot/perl@8403
| -rw-r--r-- | regexec.c | 2 | ||||
| -rw-r--r-- | t/op/re_tests | 1 |
2 files changed, 2 insertions, 1 deletions
@@ -597,7 +597,7 @@ Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos, DEBUG_r(PerlIO_printf(Perl_debug_log, ", trying anchored starting at offset %ld...\n", (long)(s1 + 1 - i_strpos))); - other_last = last + 1; + other_last = last; /* Fix this later. --Hugo */ s = HOP3c(t, 1, strend); goto restart; } diff --git a/t/op/re_tests b/t/op/re_tests index 52666daea5..1090e112b9 100644 --- a/t/op/re_tests +++ b/t/op/re_tests @@ -781,3 +781,4 @@ tt+$ xxxtt y - - ^([0-9a-fA-F]+)(?:x([0-9a-fA-F]+)?)(?:x([0-9a-fA-F]+))? 012cxx0190 y - - ^(b+?|a){1,2}c bbbac y $1 a ^(b+?|a){1,2}c bbbbac y $1 a +\((\w\. \w+)\) cd. (A. Tw) y -$1- -A. Tw- |