Change 14466 by jhi@alpha on 2002/01/28 13:41:18
The shift key is important.
Affected files ...
.... //depot/perl/ext/B/B.xs#68 edit
Differences ...
==== //depot/perl/ext/B/B.xs#68 (text) ====
Index: perl/ext/B/B.xs
--- perl/ext/B/B.xs.~1~ Mon Jan 28 06:45:05 2002
+++ perl/ext/B/B.xs Mon Jan 28 06:45:05 2002
@@ -297,7 +297,7 @@
else if (*s == '\\')
sv_catpv(sstr, "\\\\");
#ifdef EBCDIC
- else if (isPRINT(8s))
+ else if (isPRINT(*s))
#else
else if (*s >= ' ' && *s < 127)
#endif /* EBCDIC */
End of Patch.
