Change 11980 by jhi@alpha on 2001/09/10 13:29:35
Subject: [PATCH] Encode.pm docs fix
From: Matt Sergeant <[EMAIL PROTECTED]>
Date: Mon, 10 Sep 2001 15:24:01 +0100
Message-ID: <315E8A8BF9D1D411AD3D00508BB1B0C004B90035@UKS040>
Affected files ...
... //depot/perl/ext/Encode/Encode.pm#32 edit
Differences ...
==== //depot/perl/ext/Encode/Encode.pm#32 (text) ====
Index: perl/ext/Encode/Encode.pm
--- perl/ext/Encode/Encode.pm.~1~ Mon Sep 10 07:45:05 2001
+++ perl/ext/Encode/Encode.pm Mon Sep 10 07:45:05 2001
@@ -667,11 +667,11 @@
to transfer strings in this form (e.g. to write them to a file) would
need to
- pack('L',map(chr($_),split(//,$string))); # native
+ pack('L',map(ord($_),split(//,$string))); # native
or
- pack('V',map(chr($_),split(//,$string))); # little-endian
+ pack('V',map(ord($_),split(//,$string))); # little-endian
or
- pack('N',map(chr($_),split(//,$string))); # big-endian
+ pack('N',map(ord($_),split(//,$string))); # big-endian
depending on the endian required.
End of Patch.
