From c079d275c4f9c514ec0de3de1aef066d6f4595aa Mon Sep 17 00:00:00 2001 From: Gisle Aas Date: Mon, 10 Sep 2001 04:27:02 -0700 Subject: [PATCH] Re: [PATCH] Encode.pm docs fix Message-ID: p4raw-id: //depot/perl@11994 --- ext/Encode/Encode.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/ext/Encode/Encode.pm b/ext/Encode/Encode.pm index 6a297a3..2aee7c1 100644 --- a/ext/Encode/Encode.pm +++ b/ext/Encode/Encode.pm @@ -667,13 +667,13 @@ can be considered as being in this form without encoding. An encoding to transfer strings in this form (e.g. to write them to a file) would need to - pack('L',map(ord($_),split(//,$string))); # native + pack('L*', unpack('U*', $string)); # native or - pack('V',map(ord($_),split(//,$string))); # little-endian + pack('V*', unpack('U*', $string)); # little-endian or - pack('N',map(ord($_),split(//,$string))); # big-endian + pack('N*', unpack('U*', $string)); # big-endian -depending on the endian required. +depending on the endianness required. No UTF-32 encodings are implemented yet. -- 2.7.4