This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
(?>) broken in RE
authorIlya Zakharevich <ilya@math.berkeley.edu>
Mon, 31 Aug 1998 14:52:10 +0000 (10:52 -0400)
committerGurusamy Sarathy <gsar@cpan.org>
Wed, 23 Sep 1998 07:11:34 +0000 (07:11 +0000)
Message-Id: <199808311852.OAA24676@monk.mps.ohio-state.edu>

p4raw-id: //depot/perl@1828

regexec.c
t/op/re_tests

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;
index 8bd175d..1dca4f0 100644 (file)
@@ -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