From: Jeff Pinyan <japhy@pobox.com>
Date: Thu, 6 Dec 2001 10:39:45 +0000 (-0500)
Subject: Re: [PATCH: bleadperl] casefold backref
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=af5deceed4f039de087970221a21438b321ff7fa;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH: bleadperl] casefold backref
Message-ID: <Pine.GSO.4.21.0112061038490.14590-100000@crusoe.crusoe.net>

p4raw-id: //depot/perl@13488
---

diff --git a/regexec.c b/regexec.c
index 6ba0975..0d97be3 100644
--- a/regexec.c
+++ b/regexec.c
@@ -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;