Jeffrey's Unicode adventure continues: unify the In/*.pl

[perl5.git] / lib / unicore / lib / Han.pl

diff --git a/lib/unicore/lib/Han.pl b/lib/unicore/lib/Han.pl
new file mode 100644 (file)
index 0000000..549ce1e
--- /dev/null
+++ b/lib/unicore/lib/Han.pl
@@ -0,0 +1,24 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!! 
+# This file is built by ./mktables from e.g. Unicode.txt.
+# Any changes made here will be lost!
+
+#
+# This file supports:
+#      \p{Han} (and fuzzy permutations)
+# 
+# Meaning: Script 'HAN'
+#
+return <<'END';
+2E80   2E99    HAN
+2E9B   2EF3    HAN
+2F00   2FD5    HAN
+3005           HAN
+3007           HAN
+3021   3029    HAN
+3038   303A    HAN
+3400   4DB5    HAN
+4E00   9FA5    HAN
+F900   FA2D    HAN
+20000  2A6D6   HAN
+2F800  2FA1D   HAN
+END