From: Abhijit Menon-Sen <ams@wiw.org>
Date: Mon, 2 Jul 2001 16:31:33 +0000 (+0530)
Subject: Re: Bug report: split splits on wrong pattern
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=17cbf7cc54d67100c675a138ffe531a7e8744de5;p=p5sagit%2Fp5-mst-13.2.git

Re: Bug report: split splits on wrong pattern
Message-ID: <20010702163133.A23186@lustre.dyn.wiw.org>

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

diff --git a/pp_ctl.c b/pp_ctl.c
index 4970bd0..ca82350 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -147,11 +147,10 @@ PP(pp_regcomp)
 
     if (!PM_GETRE(pm)->prelen && PL_curpm)
 	pm = PL_curpm;
+    else if (strEQ("\\s+", PM_GETRE(pm)->precomp))
+	pm->op_pmflags |= PMf_WHITE;
     else
-	if (strEQ("\\s+", PM_GETRE(pm)->precomp))
-	    pm->op_pmflags |= PMf_WHITE;
-	else
-	    pm->op_pmflags &= ~PMf_WHITE;
+	pm->op_pmflags &= ~PMf_WHITE;
 
     /* XXX runtime compiled output needs to move to the pad */
     if (pm->op_pmflags & PMf_KEEP) {