(?>) broken in RE

	Message-Id: <199808311852.OAA24676@monk.mps.ohio-state.edu>

p4raw-id: //depot/perl@1828

diff --git a/regexec.c b/regexec.c
index 2bbe487..bcba723 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -2245,6 +2245,7 @@ regmatch(regnode *prog)
            sayYES;                     /* Success! */
        case SUSPEND:
            n = 1;
+           PL_reginput = locinput;
            goto do_ifmatch;        
        case UNLESSM:
            n = 0;

diff --git a/t/op/re_tests b/t/op/re_tests
index 8bd175d..1dca4f0 100644 (file)
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -489,3 +489,4 @@ b\z a\nb    y       -       -
 (^|x)(c)       ca      y       $2      c
 a*abc?xyz+pqr{3}ab{2,}xy{4,5}pq{0,6}AB{0,}zz   x       n       -       -
 a(?{$a=2;$b=3;($b)=$a})b       yabz    y       $b      2
+round\(((?>[^()]+))\)  _I(round(xs * sz),1)    y       $1      xs * sz