Possible fix for the problems in EBCDIC from Sadahiro Tomoyuki.

p4raw-id: //depot/perl@19726

diff --git a/ext/Unicode/Normalize/Normalize.pm b/ext/Unicode/Normalize/Normalize.pm
index 14c121a..7dbe42e 100644 (file)
--- a/ext/Unicode/Normalize/Normalize.pm
+++ b/ext/Unicode/Normalize/Normalize.pm
@@ -35,27 +35,12 @@ our %EXPORT_TAGS = (
 
 bootstrap Unicode::Normalize $VERSION;
 
-use constant UNICODE_FOR_PACK => "A" eq pack('U', 0x41);
-use constant NATIVE_FOR_PACK  => "A" eq pack('U', ord("A"));
-
-use constant UNICODE_FOR_UNPACK => 0x41 == unpack('U', "A");
-use constant NATIVE_FOR_UNPACK  => ord("A") == unpack('U', "A");
-
 sub pack_U {
-    return UNICODE_FOR_PACK
-       ? pack('U*', @_)
-       : NATIVE_FOR_PACK
-           ? pack('U*', map utf8::unicode_to_native($_), @_)
-           : die "$PACKAGE, a Unicode code point cannot be stringified.\n";
+    return pack('U*', @_);
 }
 
 sub unpack_U {
-    return UNICODE_FOR_UNPACK
-       ? unpack('U*', shift)
-       : NATIVE_FOR_UNPACK
-           ? map(utf8::native_to_unicode($_), unpack 'U*', shift)
-           : die "$PACKAGE, a code point returned from unpack U " .
-               "cannot be converted into Unicode.\n";
+    return unpack('U*', pack('U*').shift);
 }
 
 use constant COMPAT => 1;