diff options
| author | Abhijit Menon-Sen <ams@wiw.org> | 2001-07-02 22:01:33 +0530 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-02 13:23:21 +0000 |
| commit | 17cbf7cc54d67100c675a138ffe531a7e8744de5 (patch) | |
| tree | 282f237e427fda35cd85a0dc32dc501ba4385fe3 /pp_ctl.c | |
| parent | 723ca54d3c6fbca0270f4a8b6a89c5976ab6f199 (diff) | |
| download | perl-17cbf7cc54d67100c675a138ffe531a7e8744de5.tar.gz | |
Re: Bug report: split splits on wrong pattern
Message-ID: <20010702163133.A23186@lustre.dyn.wiw.org>
p4raw-id: //depot/perl@11087
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 7 |
1 files changed, 3 insertions, 4 deletions
@@ -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) { |