perl-unicode

one of the [PATCH]'s revised ( [Encode] 1.30 )

2002-04-08 06:06:26
Hello, Dan!

AT> 1) [PATCH]
AT>    Justification: http://www.unicode.org/unicode/faq/utf_bom.html#25
AT> --- ext/Encode-1.30/lib/Encode/Unicode.pm.orig  Mon Apr  8 14:06:28 2002
AT> +++ ext/Encode-1.30/lib/Encode/Unicode.pm       Mon Apr  8 14:49:24 2002
Patch has been revised again a bit: also fixed =back placement and added a
link to RFC 2781.

BTW: L<RFC 2781|http://...> won't work! :-(

--- ext/Encode-1.30/lib/Encode/Unicode.pm.orig  Mon Apr  8 14:06:28 2002
+++ ext/Encode-1.30/lib/Encode/Unicode.pm       Mon Apr  8 17:00:47 2002
@@ -12,7 +12,7 @@
 sub FBCHAR(){ 0xFFFd }
 sub BOM_BE(){ 0xFeFF }
 sub BOM16LE(){ 0xFFFe }
-sub BOM32LE(){ 0xFeFF0000 }
+sub BOM32LE(){ 0xFFFe0000 }
 
 sub valid_ucs2($){
     if ($_[0] < 0xD800){
@@ -345,7 +345,7 @@
             16         32 bits/char
 -------------------------
 BE     0xFeFF 0x0000FeFF
-LE      0xFFeF 0xFeFF0000
+LE      0xFFeF 0xFFFe0000
 -------------------------
 
 =back
@@ -377,6 +377,7 @@
 C<UCS-2> is an exception.  Unlike others this is an alias of UCS-2BE.
 UCS-2 is already registered by IANA and others that way.
 
+=back
 
 =head1 The Surrogate Pair
 
@@ -418,6 +419,8 @@
 
 =head1 SEE ALSO
 
-L<Encode>, L<http://www.unicode.org/glossary/>
+L<Encode>, L<http://www.unicode.org/glossary/>,
 
-=back
+RFC 2781 L<http://rfc.net/rfc2781.html>,
+
+L<http://www.unicode.org/unicode/faq/utf_bom.html>