The shift key is important.

p4raw-id: //depot/perl@14466

diff --git a/ext/B/B.xs b/ext/B/B.xs
index c731c98..155c3da 100644 (file)
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -297,7 +297,7 @@ cchar(pTHX_ SV *sv)
     else if (*s == '\\')
        sv_catpv(sstr, "\\\\");
 #ifdef EBCDIC
-    else if (isPRINT(8s))
+    else if (isPRINT(*s))
 #else
     else if (*s >= ' ' && *s < 127)
 #endif /* EBCDIC */