Change 11087 by jhi@alpha on 2001/07/02 13:23:21
Subject: Re: Bug report: split splits on wrong pattern
From: Abhijit Menon-Sen <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>
Date: Mon, 2 Jul 2001 16:31:33 +0530
Affected files ...
... //depot/perl/pp_ctl.c#273 edit
Differences ...
==== //depot/perl/pp_ctl.c#273 (text) ====
Index: perl/pp_ctl.c
--- perl/pp_ctl.c.~1~ Mon Jul 2 07:30:06 2001
+++ perl/pp_ctl.c Mon Jul 2 07:30:06 2001
@@ -147,11 +147,10 @@
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) {
End of Patch.
