Re: [ID 20001029.005] Regex error: "cd. (A. Tw)" !~ /\((\w\. \w+)\)/

Message-Id: <200010300133.BAA10390@crypt.compulink.co.uk>

p4raw-id: //depot/perl@8403

diff --git a/regexec.c b/regexec.c
index 5990ea3..c7d42cd 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -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 52666da..1090e11 100644 (file)
--- 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-