From: Gisle Aas <gisle@aas.no>
Date: Mon, 10 Sep 2001 11:27:02 +0000 (-0700)
Subject: Re: [PATCH] Encode.pm docs fix
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c079d275c4f9c514ec0de3de1aef066d6f4595aa;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH] Encode.pm docs fix
Message-ID: <lrwv363nrd.fsf@caliper.ActiveState.com>

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

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.