Change 11994 by jhi@alpha on 2001/09/11 03:12:44
Subject: Re: [PATCH] Encode.pm docs fix
From: Gisle Aas <[EMAIL PROTECTED]>
Date: 10 Sep 2001 11:27:02 -0700
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/Encode/Encode.pm#33 edit
Differences ...
==== //depot/perl/ext/Encode/Encode.pm#33 (text) ====
Index: perl/ext/Encode/Encode.pm
--- perl/ext/Encode/Encode.pm.~1~ Mon Sep 10 21:30:05 2001
+++ perl/ext/Encode/Encode.pm Mon Sep 10 21:30:05 2001
@@ -667,13 +667,13 @@
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.
End of Patch.
