diff options
| author | Yves Orton <demerphq@gmail.com> | 2007-01-09 01:46:31 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-01-09 10:04:37 +0000 |
| commit | e357fc671749d483a102a060a774d41a9b256b46 (patch) | |
| tree | ad6b6dd8c8d0407474c2ac0da73f6ccbcbcfdb47 /pp_ctl.c | |
| parent | 850d607338c285d0f6a7d66f1c4baf08de921004 (diff) | |
| download | perl-e357fc671749d483a102a060a774d41a9b256b46.tar.gz | |
Let the regex parser decide if we have a special pattern or not.
Message-ID: <9b18b3110701081546n2c3f19acy29adc0d233bb848c@mail.gmail.com>
p4raw-id: //depot/perl@29730
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -177,7 +177,7 @@ PP(pp_regcomp) if (!PM_GETRE(pm)->prelen && PL_curpm) pm = PL_curpm; - else if (strEQ("\\s+", PM_GETRE(pm)->precomp)) + else if (PM_GETRE(pm)->extflags & RXf_WHITE) pm->op_pmflags |= PMf_WHITE; else pm->op_pmflags &= ~PMf_WHITE; |