- 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);
- }