From 14bf678466e32b2037048e39113c054405426688 Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Mon, 10 Sep 2001 16:24:01 +0100
Subject: [PATCH] Encode.pm docs fix Message-ID:
 <315E8A8BF9D1D411AD3D00508BB1B0C004B90035@UKS040>

p4raw-id: //depot/perl@11980
---
 ext/Encode/Encode.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ext/Encode/Encode.pm b/ext/Encode/Encode.pm
index b84623a..6a297a3 100644
--- a/ext/Encode/Encode.pm
+++ b/ext/Encode/Encode.pm
@@ -667,11 +667,11 @@ 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(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.
 
-- 
2.7.4