diff options
| author | Radu Greab <radu@netsoft.ro> | 2001-06-28 00:50:52 +0300 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-29 14:06:50 +0000 |
| commit | 16bdb4acd34944ffe721cad7161ffc4c81e35c48 (patch) | |
| tree | 4186f2064da36401041349c31b048ed50975704c /pp_ctl.c | |
| parent | abcf653aa463675479f9ed2ac9430790d962b866 (diff) | |
| download | perl-16bdb4acd34944ffe721cad7161ffc4c81e35c48.tar.gz | |
Re: Bug report: split splits on wrong pattern
Message-ID: <15162.11020.279064.471031@ix.netsoft.ro>
p4raw-id: //depot/perl@11029
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -147,8 +147,11 @@ 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; /* XXX runtime compiled output needs to move to the pad */ if (pm->op_pmflags & PMf_KEEP) { |