From: Dan Kogai <dankogai@dan.co.jp>
Date: Sat, 6 Apr 2002 06:08:40 +0000 (+0900)
Subject: [perlunicode]   A nasty doc bug causing the real one!
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1a3fa709ada8129dcc7357aecaed7b816a79ba13;p=p5sagit%2Fp5-mst-13.2.git

[perlunicode]   A nasty doc bug causing the real one!
Message-Id: <4DB9C576-48D9-11D6-84DC-00039301D480@dan.co.jp>

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

diff --git a/pod/perlunicode.pod b/pod/perlunicode.pod
index 783ee39..a5daaf5 100644
--- a/pod/perlunicode.pod
+++ b/pod/perlunicode.pod
@@ -792,7 +792,7 @@ are the range 0xDC00..0xDFFFF.  The surrogate encoding is
 
 and the decoding is
 
-	$uni = 0x10000 + ($hi - 0xD8000) * 0x400 + ($lo - 0xDC00);
+	$uni = 0x10000 + ($hi - 0xD800) * 0x400 + ($lo - 0xDC00);
 
 If you try to generate surrogates (for example by using chr()), you
 will get a warning if warnings are turned on (C<-w> or C<use