[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 (file)
--- 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