diff options
author | Karl Williamson <public@khwilliamson.com> | 2012-09-02 10:37:26 -0600 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2012-09-13 21:14:01 -0600 |
commit | 138e21c2917acafbfc91f3b231af0e0884c61e5f (patch) | |
tree | 4a64aefec009ced69deee3e67be5eed17e5e479a | |
parent | ec34087a0a7a2c973993150137f0f8428541e7a0 (diff) | |
download | perl-138e21c2917acafbfc91f3b231af0e0884c61e5f.tar.gz |
ext/B/B.xs: Remove EBCDIC dependency
These are unnecessary EBCDIC dependencies: It uses isPRINT() on EBCDIC,
and an expression on ASCII, but isPRINT() is defined to be precisely
that expression on ASCII platforms.
-rw-r--r-- | ext/B/B.xs | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs index 9200cc9eba..69c4aaed7b 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -403,11 +403,7 @@ cstring(pTHX_ SV *sv, bool perlstyle) sv_catpvs(sstr, "\\$"); else if (perlstyle && *s == '@') sv_catpvs(sstr, "\\@"); -#ifdef EBCDIC else if (isPRINT(*s)) -#else - else if (*s >= ' ' && *s < 127) -#endif /* EBCDIC */ sv_catpvn(sstr, s, 1); else if (*s == '\n') sv_catpvs(sstr, "\\n"); @@ -448,11 +444,7 @@ cchar(pTHX_ SV *sv) sv_catpvs(sstr, "\\'"); else if (c == '\\') sv_catpvs(sstr, "\\\\"); -#ifdef EBCDIC else if (isPRINT(c)) -#else - else if (c >= ' ' && c < 127) -#endif /* EBCDIC */ sv_catpvn(sstr, s, 1); else if (c == '\n') sv_catpvs(sstr, "\\n"); |