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.