Change 13488 by jhi@alpha on 2001/12/06 14:41:02
Subject: Re: [PATCH: bleadperl] casefold backref
From: "Jeff 'japhy' Pinyan" <[EMAIL PROTECTED]>
Date: Thu, 6 Dec 2001 10:39:45 -0500 (EST)
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/regexec.c#211 edit
Differences ...
==== //depot/perl/regexec.c#211 (text) ====
Index: perl/regexec.c
--- perl/regexec.c.~1~ Thu Dec 6 07:45:06 2001
+++ perl/regexec.c Thu Dec 6 07:45:06 2001
@@ -3160,9 +3160,9 @@
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 @@
}
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;
End of Patch.
