Encode 0.90 (the one with jisx0212-1990) from Dan Kogai.

[p5sagit/p5-mst-13.2.git] / ext / Encode / Encode.xs

diff --git a/ext/Encode/Encode.xs b/ext/Encode/Encode.xs
index a71f69b..0ac0e0f 100644 (file)
--- a/ext/Encode/Encode.xs
+++ b/ext/Encode/Encode.xs
@@ -559,8 +559,8 @@ encode_method(pTHX_ encode_t * enc, encpage_t * dir, SV * src,
                       for real characters, but some encodings have non-assigned
                       codes which may occur.
                     */
-                   Perl_croak(aTHX_ "%s \"\\x%02X\" does not map to Unicode",
-                              enc->name[0], (U8) s[slen]);
+                   Perl_croak(aTHX_ "%s \"\\x%02X\" does not map to Unicode (%d)",
+                              enc->name[0], (U8) s[slen], code);
                }
                break;