diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-01 15:27:52 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-01 15:27:52 +0000 |
commit | 830498575a8e7c3f9fe8227903ce62de6b54b41c (patch) | |
tree | 6fa5c492a5a2de78a8d1232ca3a0b090d8f118dc | |
parent | cd055192fbefd3cee30dd5dd4503700cb38c3fde (diff) | |
download | perl-830498575a8e7c3f9fe8227903ce62de6b54b41c.tar.gz |
Encode tweak from Dan Kogai.
p4raw-id: //depot/perl@16308
-rw-r--r-- | ext/Encode/Encode.xs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Encode/Encode.xs b/ext/Encode/Encode.xs index 17f746a49c..79b2833d7b 100644 --- a/ext/Encode/Encode.xs +++ b/ext/Encode/Encode.xs @@ -130,13 +130,13 @@ encode_method(pTHX_ encode_t * enc, encpage_t * dir, SV * src, &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){ |