diff options
author | Jeff Pinyan <japhy@pobox.com> | 2001-12-06 05:39:45 -0500 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-06 14:41:02 +0000 |
commit | af5deceed4f039de087970221a21438b321ff7fa (patch) | |
tree | 3ec90e42a8f795ebb140e05e4b7efeea624ce1c0 /regexec.c | |
parent | acc79e62856b17bbeea411d3411bafa1633a073a (diff) | |
download | perl-af5deceed4f039de087970221a21438b321ff7fa.tar.gz |
Re: [PATCH: bleadperl] casefold backref
Message-ID: <Pine.GSO.4.21.0112061038490.14590-100000@crusoe.crusoe.net>
p4raw-id: //depot/perl@13488
Diffstat (limited to 'regexec.c')
-rw-r--r-- | regexec.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -3160,9 +3160,9 @@ S_regmatch(pTHX_ regnode *prog) c1 = *(PL_bostr + ln); } else { c1 = (U8)*STRING(text_node); } - if (OP(next) == EXACTF) + if (OP(text_node) == EXACTF || OP(text_node) == REFF) c2 = PL_fold[c1]; - else if (OP(text_node) == EXACTFL) + else if (OP(text_node) == EXACTFL || OP(text_node) == REFFL) c2 = PL_fold_locale[c1]; else c2 = c1; @@ -3243,9 +3243,9 @@ S_regmatch(pTHX_ regnode *prog) } else { c1 = (U8)*STRING(text_node); } - if (OP(text_node) == EXACTF) + if (OP(text_node) == EXACTF || OP(text_node) == REFF) c2 = PL_fold[c1]; - else if (OP(text_node) == EXACTFL) + else if (OP(text_node) == EXACTFL || OP(text_node) == REFFL) c2 = PL_fold_locale[c1]; else c2 = c1; |