diff options
| author | Andreas Karrer <karrer@ife.ee.ethz.ch> | 1997-06-11 12:00:00 +1200 |
|---|---|---|
| committer | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-06-11 12:00:00 +1200 |
| commit | c8756f30ff24381844a7b05f062074a87dc23910 (patch) | |
| tree | bf33f63a7a9d984c29f5c16d855dbb9d29415524 /regcomp.c | |
| parent | e860bb06317b0d55a48f2c5511900c366344d898 (diff) | |
| download | perl-c8756f30ff24381844a7b05f062074a87dc23910.tar.gz | |
Regex Bug in 5.003_26 thru 003_99a
According to Tom Christiansen:
> I just *knew* I should have included stuff from my FMTEYEWTK on regexen
> in the regression suites. You'll note that you've now rendered p71 of
> the Camel a liar. This is considered Very Naughty.
*sigh* Well, without a bug report, what I could I do?...
> I'd say this is a must-fix.
Here's a patch. I suppose this should go into _01.
p5p-msgid: 199705161915.PAA18721@rio.atlantic.net
Signed-off-by: Chip Salzenberg <chip@atlantic.net>
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 10 |
1 files changed, 9 insertions, 1 deletions
@@ -903,7 +903,9 @@ tryagain: goto defchar; else { regsawback = 1; - ret = reganode(REF, num); + ret = reganode((regflags & PMf_FOLD) + ? ((regflags & PMf_LOCALE) ? REFFL : REFF) + : REF, num); *flagp |= HASWIDTH; while (isDIGIT(*regparse)) regparse++; @@ -1667,6 +1669,12 @@ char *op; case REF: sv_catpvf(sv, "REF%d", ARG1(op)); break; + case REFF: + sv_catpvf(sv, "REFF%d", ARG1(op)); + break; + case REFFL: + sv_catpvf(sv, "REFFL%d", ARG1(op)); + break; case OPEN: sv_catpvf(sv, "OPEN%d", ARG1(op)); break; |