From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 28 Jan 2002 13:41:18 +0000 (+0000)
Subject: The shift key is important.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=133b40945ecebbe9d143ac8ba22ef0ed7dbf685d;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 */