perl-unicode

[Patch] Encode.pm : euro sign missing in cp936.ucm

2003-03-26 09:30:04

diff -urN ucm~/cp936.ucm ucm/cp936.ucm
--- ucm~/cp936.ucm      Mon Mar 10 05:07:44 2003
+++ ucm/cp936.ucm       Wed Mar 26 23:54:26 2003
@@ -137,7 +137,6 @@
 <U007D> \x7D |0 # RIGHT CURLY BRACKET
 <U007E> \x7E |0 # TILDE
 <U007F> \x7F |0 # DELETE
-<U0080> \x80 |0 #
 <U00A4> \xA1\xE8 |0 # CURRENCY SIGN
 <U00A7> \xA1\xEC |0 # SECTION SIGN
 <U00A8> \xA1\xA7 |0 # DIAERESIS
@@ -311,6 +310,7 @@
 <U2033> \xA1\xE5 |0 # DOUBLE PRIME
 <U2035> \xA8\x46 |0 # REVERSED PRIME
 <U203B> \xA1\xF9 |0 # REFERENCE MARK
+<U20AC> \x80     |0 # EURO SIGN
 <U2103> \xA1\xE6 |0 # DEGREE CELSIUS
 <U2105> \xA8\x47 |0 # CARE OF
 <U2109> \xA8\x48 |0 # DEGREE FAHRENHEIT
End of patch



sigh, I've made such a patch long before.

cf.
http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2001-09/msg01568.html

Regards,
SADAHIRO Tomoyuki