diff options
| author | Anthony Fok <foka> | 2002-04-15 04:06:02 +0000 |
|---|---|---|
| committer | Anthony Fok <foka> | 2002-04-15 04:06:02 +0000 |
| commit | 3e29613f74ad3cafcec9ba964530d2f868e58ed1 (patch) | |
| tree | 6371c5edbcbaa008be98f006339c3aca12c952bd /chinese/bin | |
| parent | 6219ee7f8b0bd4ecd7807c738922a2e6ae2ac2b1 (diff) | |
Removed "Hong Kong Cantonese-ism" for zh_HK. :-)
CVS version numbers
chinese/bin/totw.pl: 1.27 -> 1.28
Diffstat (limited to 'chinese/bin')
| -rwxr-xr-x | chinese/bin/totw.pl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/chinese/bin/totw.pl b/chinese/bin/totw.pl index 5aa13481066..6702d4bde53 100755 --- a/chinese/bin/totw.pl +++ b/chinese/bin/totw.pl @@ -67,6 +67,7 @@ if ($sublang eq 'hk') { 1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)列印/$1打印/); 1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)印表機/$1打印機/); + if (0 == 1) { # 廣東話 1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)在/$1/); 1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)也/$1亦都/); @@ -83,6 +84,7 @@ if ($sublang eq 'hk') { 1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*(我|你|您|妳))們/$1]/); 1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*)(他|她|牠|它)們/$1佢\]/); 1 while (s/^((?:[\x00-\x7f]|[\x80-\xff].)*(一|有|多|少|大|小))些/$1/); + } } if ($sublang eq 'tw') { |