Change 14146 by jhi@alpha on 2002/01/09 12:47:27
In dumping use isPRINT() instead of isprint() so that locale
does not come into play.
Affected files ...
.... //depot/perl/utf8.c#152 edit
Differences ...
==== //depot/perl/utf8.c#152 (text) ====
Index: perl/utf8.c
--- perl/utf8.c.~1~ Wed Jan 9 06:00:05 2002
+++ perl/utf8.c Wed Jan 9 06:00:05 2002
@@ -1665,7 +1665,7 @@
(if longer, the rest is truncated and "..." will be appended).
The flags argument can have UNI_DISPLAY_ISPRINT set to display
-isprint()able characters as themselves, UNI_DISPLAY_BACKSLASH
+isPRINT()able characters as themselves, UNI_DISPLAY_BACKSLASH
to display the \\[nrfta\\] as the backslashed versions (like '\n')
(UNI_DISPLAY_BACKSLASH is preferred over UNI_DISPLAY_ISPRINT for \\).
UNI_DISPLAY_QQ (and its alias UNI_DISPLAY_REGEX) have both
@@ -1708,7 +1708,8 @@
default: break;
}
}
- if (!ok && (flags & UNI_DISPLAY_ISPRINT) && isprint(u & 0xFF)) {
+ /* isPRINT() is the locale-blind version. */
+ if (!ok && (flags & UNI_DISPLAY_ISPRINT) && isPRINT(u & 0xFF)) {
Perl_sv_catpvf(aTHX_ dsv, "%c", u);
ok = TRUE;
}
End of Patch.
