From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 1 May 2002 15:27:52 +0000 (+0000)
Subject: Encode tweak from Dan Kogai.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=830498575a8e7c3f9fe8227903ce62de6b54b41c;p=p5sagit%2Fp5-mst-13.2.git

Encode tweak from Dan Kogai.

p4raw-id: //depot/perl@16308
---

diff --git a/ext/Encode/Encode.xs b/ext/Encode/Encode.xs
index 17f746a..79b2833 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){