Change 30871 by [EMAIL PROTECTED] on 2007/04/08 07:58:39
Subject: [PATCH] RXf_WHITE never used due to small bug in regcomp.c
From: "=?UTF-8?Q?=C3=86var_Arnfj=C3=B6r=C3=B0_Bjarmason?=" <[EMAIL
PROTECTED]>
Date: Sat, 7 Apr 2007 00:17:05 +0000
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/regcomp.c#578 edit
Differences ...
==== //depot/perl/regcomp.c#578 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c#577~30849~ 2007-04-06 05:13:14.000000000 -0700
+++ perl/regcomp.c 2007-04-08 00:58:39.000000000 -0700
@@ -4677,7 +4677,7 @@
r->paren_names = (HV*)SvREFCNT_inc(RExC_paren_names);
else
r->paren_names = NULL;
- if (r->prelen == 3 && strEQ("\\s+", r->precomp))
+ if (r->prelen == 3 && strnEQ("\\s+", r->precomp, 3)) /* precomp = "\\s+)"
*/
r->extflags |= RXf_WHITE;
else if (r->prelen == 1 && r->precomp[0] == '^')
r->extflags |= RXf_START_ONLY;
End of Patch.
