diff options
| author | Yves Orton <demerphq@gmail.com> | 2006-11-23 13:36:24 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-23 12:57:18 +0000 |
| commit | bbe252da68db3f0a4d00844fdb5e30bf18a0828f (patch) | |
| tree | 63d46509865ffca1ff26e61ce7efa6aac36ee476 /dump.c | |
| parent | b3123a6146c9098bd93ca1ae1f6d6d6744ef9c4b (diff) | |
| download | perl-bbe252da68db3f0a4d00844fdb5e30bf18a0828f.tar.gz | |
Cleanup regexp flags and structure
Message-ID: <9b18b3110611230336p3ce3b16du47cd5398dea8d873@mail.gmail.com>
p4raw-id: //depot/perl@29360
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -557,9 +557,9 @@ S_pm_description(pTHX_ const PMOP *pm) if (pmflags & PMf_ONCE) sv_catpv(desc, ",ONCE"); if (regex && regex->check_substr) { - if (!(regex->reganch & ROPT_NOSCAN)) + if (!(regex->extflags & RXf_NOSCAN)) sv_catpv(desc, ",SCANFIRST"); - if (regex->reganch & ROPT_CHECK_ALL) + if (regex->extflags & RXf_CHECK_ALL) sv_catpv(desc, ",ALL"); } if (pmflags & PMf_SKIPWHITE) |