From: Ævar Arnfjörð Bjarmason <avar@cpan.org>
Date: Sat, 7 Apr 2007 00:17:05 +0000 (+0000)
Subject: RXf_WHITE never used due to small bug in regcomp.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=783c8b2cf8aed9fd2b804541b0d5b7cd41d011cd;p=p5sagit%2Fp5-mst-13.2.git

RXf_WHITE never used due to small bug in regcomp.c
From: "Ævar Arnfjörð Bjarmason" <avarab@gmail.com>
Message-ID: <51dd1af80704061717s44107fb9jf468ef28080d33a6@mail.gmail.com>

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

diff --git a/regcomp.c b/regcomp.c
index 2cf97ec..688bbc6 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -4677,7 +4677,7 @@ reStudy:
         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;