diff options
| author | Karl Williamson <khw@cpan.org> | 2014-04-21 12:11:40 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2014-05-30 09:32:08 -0600 |
| commit | 5e784d588d349d87bfd40523917f645aec267d2a (patch) | |
| tree | f7ae49379091e65bbc6cded77c568792231ed57f /dquote_static.c | |
| parent | 7357bd179010cc65198f733bbca3196c70e21e64 (diff) | |
| download | perl-5e784d588d349d87bfd40523917f645aec267d2a.tar.gz | |
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.
Diffstat (limited to 'dquote_static.c')
| -rw-r--r-- | dquote_static.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/dquote_static.c b/dquote_static.c index 4c82c77923..1f74ca5777 100644 --- a/dquote_static.c +++ b/dquote_static.c @@ -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)) { |