Better be explicit with dangling elses.
Jarkko Hietaniemi [Tue, 13 May 2003 05:20:56 +0000 (05:20 +0000)]
p4raw-id: //depot/perl@19507

pp.c

diff --git a/pp.c b/pp.c
index bcf1633..ef8a37d 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -594,11 +594,12 @@ PP(pp_gelem)
            sv = newSVpvn(GvNAME(gv), GvNAMELEN(gv));
        break;
     case 'P':
-       if (strEQ(elem, "PACKAGE"))
-           if (HvNAME(GvSTASH(gv)))
-               sv = newSVpv(HvNAME(GvSTASH(gv)), 0);
-           else
-               sv = newSVpv("__ANON__",0);
+        if (strEQ(elem, "PACKAGE")) {
+            if (HvNAME(GvSTASH(gv)))
+                sv = newSVpv(HvNAME(GvSTASH(gv)), 0);
+            else
+                sv = newSVpv("__ANON__",0);
+        }
        break;
     case 'S':
        if (strEQ(elem, "SCALAR"))