toke.c: Indent properly
authorKarl Williamson <public@khwilliamson.com>
Sun, 21 Oct 2012 17:10:32 +0000 (11:10 -0600)
committerKarl Williamson <public@khwilliamson.com>
Wed, 24 Oct 2012 16:45:25 +0000 (10:45 -0600)
toke.c

diff --git a/toke.c b/toke.c
index 61f1e04..63b6d02 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -8926,13 +8926,13 @@ S_new_constant(pTHX_ const char *s, STRLEN len, const char *key, STRLEN keylen,
                            "Constant(%s) unknown", (type ? type: "undef"));
        }
        else {
-       why1 = "$^H{";
-       why2 = key;
-       why3 = "} is not defined";
-    report:
-       msg = Perl_newSVpvf(aTHX_ "Constant(%s): %s%s%s",
-                           (type ? type: "undef"), why1, why2, why3);
-       }
+            why1 = "$^H{";
+            why2 = key;
+            why3 = "} is not defined";
+        report:
+            msg = Perl_newSVpvf(aTHX_ "Constant(%s): %s%s%s",
+                                (type ? type: "undef"), why1, why2, why3);
+        }
        yyerror(SvPVX_const(msg));
        SvREFCNT_dec(msg);
        return sv;