- assert(isPRINT_A(toCTRL('{')));
-
- /* diag_listed_as: Use "%s" instead of "%s" */
- Perl_croak(aTHX_ "Use \"%c\" instead of \"\\c{\"", toCTRL('{'));
+ const char control = toCTRL('{');
+ if (isPRINT_A(control)) {
+ /* diag_listed_as: Use "%s" instead of "%s" */
+ Perl_croak(aTHX_ "Use \"%c\" instead of \"\\c{\"", control);
+ }
+ else {
+ Perl_croak(aTHX_ "Sequence \"\\c{\" invalid");
+ }