diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1997-12-19 11:02:50 -0500 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-01-08 12:25:38 +0000 |
| commit | fe44a5e8ded57786d86db6cd28cbac7ae376fddc (patch) | |
| tree | e5f546f8d9bac77eaf98fad35729cc1247723680 /regexec.c | |
| parent | 0a0bb7c7269ef911ca3981a2b5365150a9ad4cfe (diff) | |
| download | perl-fe44a5e8ded57786d86db6cd28cbac7ae376fddc.tar.gz | |
Regexp fix: (?>a+)b doesn't match aaab:
Subject: Re: Regexp [PATCH] 5.004_56 (?>...)
p4raw-id: //depot/perl@399
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -1576,8 +1576,10 @@ regmatch(regnode *prog) logical = 0; sw = 1; } - if (OP(scan) == SUSPEND) + if (OP(scan) == SUSPEND) { locinput = reginput; + nextchar = UCHARAT(locinput); + } /* FALL THROUGH. */ case LONGJMP: do_longjump: |