diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-17 01:12:37 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-17 01:12:37 +0000 |
| commit | 1feea2c750cf5f74093deff93d1536d7d44a8925 (patch) | |
| tree | b2007ead2265e4aba5344f9c2d3d040dbf42f67d /regexec.c | |
| parent | 640ed10d7c25ae7621893c11f70653a184961f71 (diff) | |
| download | perl-1feea2c750cf5f74093deff93d1536d7d44a8925.tar.gz | |
The #14715 and #14716 were okay: they just revealed
a bug in the EXACTF matching.
p4raw-id: //depot/perl@14724
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2380,8 +2380,8 @@ S_regmatch(pTHX_ regnode *prog) char *l = locinput; char *e = PL_regeol; - if (ibcmp_utf8(s, 0, ln, do_utf8, - l, &e, 0, UTF)) { + if (ibcmp_utf8(s, 0, ln, UTF, + l, &e, 0, do_utf8)) { /* One more case for the sharp s: * pack("U0U*", 0xDF) =~ /ss/i, * the 0xC3 0x9F are the UTF-8 |