From: Ævar Arnfjörð Bjarmason <avar@cpan.org>
Date: Wed, 11 Apr 2007 20:54:43 +0000 (+0000)
Subject: Re: [PATCH] extflags/pmflags Change 30841, in dump.c:pm_description regex does not... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=68d4833d4d357df472705ce2791217a4c04d9dce;p=p5sagit%2Fp5-mst-13.2.git

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
---

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