Change 16308 by jhi@alpha on 2002/05/01 15:27:52
Encode tweak from Dan Kogai.
Affected files ...
.... //depot/perl/ext/Encode/Encode.xs#84 edit
Differences ...
==== //depot/perl/ext/Encode/Encode.xs#84 (text) ====
Index: perl/ext/Encode/Encode.xs
--- perl/ext/Encode/Encode.xs.~1~ Wed May 1 09:45:05 2002
+++ perl/ext/Encode/Encode.xs Wed May 1 09:45:05 2002
@@ -130,13 +130,13 @@
&clen, UTF8_ALLOW_ANY|UTF8_CHECK_ONLY);
if (check & ENCODE_DIE_ON_ERR) {
Perl_croak(
- aTHX_ "\"\\N{U+%" UVxf "}\" does not map to %s",
+ aTHX_ "\"\\x{%04" UVxf "}\" does not map to %s",
(UV)ch, enc->name[0]);
return &PL_sv_undef; /* never reaches but be safe */
}
if (check & ENCODE_WARN_ON_ERR){
Perl_warner(aTHX_ packWARN(WARN_UTF8),
- "\"\\N{U+%" UVxf "}\" does not map to %s",
+ "\"\\x{%" UVxf "}\" does not map to %s",
(UV)ch, enc->name[0]);
}
if (check & ENCODE_RETURN_ON_ERR){
End of Patch.
