This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
dquote_static.c: White-space only; no code changes
authorKarl Williamson <public@khwilliamson.com>
Mon, 7 Jan 2013 05:49:05 +0000 (22:49 -0700)
committerKarl Williamson <public@khwilliamson.com>
Fri, 11 Jan 2013 18:50:35 +0000 (11:50 -0700)
This properly indents a newly-formed block

dquote_static.c

index 1ab4ebd..9293b7b 100644 (file)
@@ -162,12 +162,12 @@ S_grok_bslash_o(pTHX_ char **s, UV *uv, const char** error_msg,
             return FALSE;
         }
         else if (output_warning) {
-       Perl_ck_warner(aTHX_ packWARN(WARN_DIGIT),
-       /* diag_listed_as: Non-octal character '%c'.  Resolved as "%s" */
-                      "Non-octal character '%c'.  Resolved as \"\\o{%.*s}\"",
-                      *(*s + numbers_len),
-                      (int) numbers_len,
-                      *s);
+            Perl_ck_warner(aTHX_ packWARN(WARN_DIGIT),
+            /* diag_listed_as: Non-octal character '%c'.  Resolved as "%s" */
+                        "Non-octal character '%c'.  Resolved as \"\\o{%.*s}\"",
+                        *(*s + numbers_len),
+                        (int) numbers_len,
+                        *s);
         }
     }