Change 27569 by [EMAIL PROTECTED] on 2006/03/22 16:05:16
remove idential code branch from regmatch()
Affected files ...
... //depot/perl/regexec.c#381 edit
Differences ...
==== //depot/perl/regexec.c#381 (text) ====
Index: perl/regexec.c
--- perl/regexec.c#380~27544~ 2006-03-19 16:52:09.000000000 -0800
+++ perl/regexec.c 2006-03-22 08:05:16.000000000 -0800
@@ -4067,29 +4067,7 @@
ln--;
}
REGCP_SET(lastcp);
- if (paren) {
- UV c = 0;
- while (n >= ln) {
- if (c1 != -1000) {
- if (do_utf8)
- c = utf8n_to_uvchr((U8*)PL_reginput,
- UTF8_MAXBYTES, 0,
- uniflags);
- else
- c = UCHARAT(PL_reginput);
- }
- /* If it could work, try it. */
- if (c1 == -1000 || c == (UV)c1 || c == (UV)c2)
- {
- TRYPAREN(paren, n, PL_reginput);
- REGCP_UNWIND(lastcp);
- }
- /* Couldn't or didn't -- back up. */
- n--;
- PL_reginput = locinput = HOPc(locinput, -1);
- }
- }
- else {
+ {
UV c = 0;
while (n >= ln) {
if (c1 != -1000) {
End of Patch.
