This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
locale.c: Add forgotten #if DEBUGGING
[perl5.git] / dquote.c
index ef03046..e02308e 100644 (file)
--- a/dquote.c
+++ b/dquote.c
@@ -46,10 +46,10 @@ Perl_grok_bslash_c(pTHX_ const char source, const bool output_warning)
         clearer[i++] = result;
         clearer[i++] = '\0';
 
-        Perl_ck_warner_d(aTHX_ packWARN2(WARN_SYNTAX,WARN_DEPRECATED),
-                          "\"\\c%c\" is more clearly written simply as \"%s\". "
-                          "This will be a fatal error in Perl 5.28",
-                          source, clearer);
+        Perl_ck_warner(aTHX_ packWARN(WARN_SYNTAX),
+                        "\"\\c%c\" is more clearly written simply as \"%s\"",
+                        source,
+                        clearer);
     }
 
     return result;