This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [PATCH] extflags/pmflags Change 30841, in dump.c:pm_description regex does not...
authorÆvar Arnfjörð Bjarmason <avar@cpan.org>
Wed, 11 Apr 2007 20:54:43 +0000 (20:54 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 12 Apr 2007 14:05:17 +0000 (14:05 +0000)
Message-ID: <51dd1af80704111354h4bbd0212hc96a9f1911d2ffb4@mail.gmail.com>

p4raw-id: //depot/perl@30921

dump.c

diff --git a/dump.c b/dump.c
index f3ebf4d..fd6af40 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -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)