nitpicks

[perl5.git] / dquote_static.c

diff --git a/dquote_static.c b/dquote_static.c
index 76fb86d..bb1bd4a 100644 (file)
--- a/dquote_static.c
+++ b/dquote_static.c
@@ -63,6 +63,8 @@ S_grok_bslash_c(pTHX_ const char source, const bool output_warning)
     }
     else if (source == '{') {
         assert(isPRINT_A(toCTRL('{')));
+
+        /* diag_listed_as: Use "%s" instead of "%s" */
         Perl_croak(aTHX_ "Use \"%c\" instead of \"\\c{\"", toCTRL('{'));
     }
 
@@ -70,18 +72,18 @@ S_grok_bslash_c(pTHX_ const char source, const bool output_warning)
     if (output_warning && ! isCNTRL_L1(result)) {
         /* We use isCNTRL_L1 above and not simply isCNTRL, because on EBCDIC
          * machines, things like \cT map into a C1 control. */
-           U8 clearer[3];
-           U8 i = 0;
-           if (! isWORDCHAR(result)) {
-               clearer[i++] = '\\';
-           }
-           clearer[i++] = result;
-           clearer[i++] = '\0';
-
-           Perl_ck_warner(aTHX_ packWARN(WARN_SYNTAX),
-                           "\"\\c%c\" is more clearly written simply as \"%s\"",
-                           source,
-                           clearer);
+        U8 clearer[3];
+        U8 i = 0;
+        if (! isWORDCHAR(result)) {
+            clearer[i++] = '\\';
+        }
+        clearer[i++] = result;
+        clearer[i++] = '\0';
+
+        Perl_ck_warner(aTHX_ packWARN(WARN_SYNTAX),
+                        "\"\\c%c\" is more clearly written simply as \"%s\"",
+                        source,
+                        clearer);
     }
 
     return result;