From b8d10bc1834937e1787fda13c581aeed3260e660 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Mon, 9 Jun 2003 18:45:00 +0000 Subject: [PATCH] Possible fix for the problems in EBCDIC from Sadahiro Tomoyuki. p4raw-id: //depot/perl@19726 --- ext/Unicode/Normalize/Normalize.pm | 19 ++----------------- 1 file changed, 2 insertions(+), 17 deletions(-) diff --git a/ext/Unicode/Normalize/Normalize.pm b/ext/Unicode/Normalize/Normalize.pm index 14c121a..7dbe42e 100644 --- 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; -- 2.7.4