diff options
| author | Karl Williamson <public@khwilliamson.com> | 2014-04-08 19:27:59 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2014-05-30 09:32:08 -0600 |
| commit | 7357bd179010cc65198f733bbca3196c70e21e64 (patch) | |
| tree | 68df37368db7e81aa45004fd575bdd807f289b65 /dquote_static.c | |
| parent | 3c856c47a94c788468840220dbd1d0dfc85e79a6 (diff) | |
| download | perl-7357bd179010cc65198f733bbca3196c70e21e64.tar.gz | |
"\cX" where X is non-printable is now fatal
It had been deprecated, scheduled to be removed in 5.22.
Diffstat (limited to 'dquote_static.c')
| -rw-r--r-- | dquote_static.c | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/dquote_static.c b/dquote_static.c index bb1bd4a565..4c82c77923 100644 --- a/dquote_static.c +++ b/dquote_static.c @@ -52,14 +52,8 @@ S_grok_bslash_c(pTHX_ const char source, const bool output_warning) U8 result; if (! isPRINT_A(source)) { - const char msg[] = "Character following \"\\c\" must be printable ASCII"; - if (! isASCII(source)) { - Perl_croak(aTHX_ "%s", msg); - } - else if (output_warning) { /* Unprintables can be removed in v5.22 */ - Perl_ck_warner_d(aTHX_ packWARN2(WARN_DEPRECATED, WARN_SYNTAX), "%s", - msg); - } + Perl_croak(aTHX_ "%s", + "Character following \"\\c\" must be printable ASCII"); } else if (source == '{') { assert(isPRINT_A(toCTRL('{'))); |