diff options
| author | Ævar Arnfjörð Bjarmason <avar@cpan.org> | 2007-04-11 20:54:43 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-12 14:05:17 +0000 |
| commit | 68d4833d4d357df472705ce2791217a4c04d9dce (patch) | |
| tree | 05f2938d9fc62f209ad5cb9c66a4b246e25ac394 | |
| parent | d38f6844f6115251e4fe0705e9b721f08bebf22b (diff) | |
| download | perl-68d4833d4d357df472705ce2791217a4c04d9dce.tar.gz | |
Re: [PATCH] extflags/pmflags Change 30841, in dump.c:pm_description regex does not have to exist
Message-ID: <51dd1af80704111354h4bbd0212hc96a9f1911d2ffb4@mail.gmail.com>
p4raw-id: //depot/perl@30921
| -rw-r--r-- | dump.c | 22 |
1 files changed, 12 insertions, 10 deletions
@@ -567,18 +567,20 @@ S_pm_description(pTHX_ const PMOP *pm) if (pmflags & PMf_USED) sv_catpv(desc, ":USED"); #endif - if (regex->extflags & RXf_TAINTED) - sv_catpv(desc, ",TAINTED"); - - if (regex && regex->check_substr) { - if (!(regex->extflags & RXf_NOSCAN)) - sv_catpv(desc, ",SCANFIRST"); - if (regex->extflags & RXf_CHECK_ALL) - sv_catpv(desc, ",ALL"); + if (regex) { + if (regex->extflags & RXf_TAINTED) + sv_catpv(desc, ",TAINTED"); + if (regex->check_substr) { + if (!(regex->extflags & RXf_NOSCAN)) + sv_catpv(desc, ",SCANFIRST"); + if (regex->extflags & RXf_CHECK_ALL) + sv_catpv(desc, ",ALL"); + } + if (regex->extflags & RXf_SKIPWHITE) + sv_catpv(desc, ",SKIPWHITE"); } - if (regex->extflags & RXf_SKIPWHITE) - sv_catpv(desc, ",SKIPWHITE"); + if (pmflags & PMf_CONST) sv_catpv(desc, ",CONST"); if (pmflags & PMf_KEEP) |