mirror of
https://github.com/Perl/perl5.git
synced 2026-01-26 16:39:36 +00:00
dquote_static.c: Clarify code
We output the message when there is a printable ASCII character, so use that as the test instead of complementing the test for a control. This makes the code somewhat clearer.
This commit is contained in:
parent
7357bd1790
commit
5e784d588d
@ -63,9 +63,7 @@ S_grok_bslash_c(pTHX_ const char source, const bool output_warning)
|
||||
}
|
||||
|
||||
result = toCTRL(source);
|
||||
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. */
|
||||
if (output_warning && isPRINT_A(result)) {
|
||||
U8 clearer[3];
|
||||
U8 i = 0;
|
||||
if (! isWORDCHAR(result)) {
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user