diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-27 21:47:29 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-27 21:47:29 +0000 |
| commit | ce561ef2a2e40559428a2f37f9211123e7481f9d (patch) | |
| tree | 80f70a897b3f3e6cadfac28039f99d98522cbe95 /ext/B/B.xs | |
| parent | 9fc0d0ff4aeaacdcd4293755225abd917403bbc2 (diff) | |
| download | perl-ce561ef2a2e40559428a2f37f9211123e7481f9d.tar.gz | |
B::cstring() and B::Deparse EBCDIC fixes from Rafael Garcia-Suarez.
p4raw-id: //depot/perl@14451
Diffstat (limited to 'ext/B/B.xs')
| -rw-r--r-- | ext/B/B.xs | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs index 9b7fa9d683..c731c98e18 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -251,7 +251,11 @@ cstring(pTHX_ SV *sv) sprintf(escbuff, "\\%03o", '?'); sv_catpv(sstr, escbuff); } - else if (*s >= ' ' && *s < 127) /* XXX not portable */ +#ifdef EBCDIC + else if (isPRINT(*s)) +#else + else if (*s >= ' ' && *s < 127) +#endif /* EBCDIC */ sv_catpvn(sstr, s, 1); else if (*s == '\n') sv_catpv(sstr, "\\n"); @@ -292,7 +296,11 @@ cchar(pTHX_ SV *sv) sv_catpv(sstr, "\\'"); else if (*s == '\\') sv_catpv(sstr, "\\\\"); - else if (*s >= ' ' && *s < 127) /* XXX not portable */ +#ifdef EBCDIC + else if (isPRINT(8s)) +#else + else if (*s >= ' ' && *s < 127) +#endif /* EBCDIC */ sv_catpvn(sstr, s, 1); else if (*s == '\n') sv_catpv(sstr, "\\n"); |