Zero entries were skipped, fix from Adrian Goalby

<argoalby@yahoo.co.uk>

p4raw-id: //depot/perl@6565

diff --git a/lib/unicode/Number.pl b/lib/unicode/Number.pl
index b0e054a..b9e596f 100644 (file)
--- a/lib/unicode/Number.pl
+++ b/lib/unicode/Number.pl
@@ -2,6 +2,7 @@
 # This file is built by mktables.PL from e.g. Unicode.300.
 # Any changes made here will be lost!
 return <<'END';
+0030           0
 0031           1
 0032           2
 0033           3
@@ -17,6 +18,7 @@ return <<'END';
 00bc           1/4
 00bd           1/2
 00be           3/4
+0660           0
 0661           1
 0662           2
 0663           3
@@ -26,6 +28,7 @@ return <<'END';
 0667           7
 0668           8
 0669           9
+06f0           0
 06f1           1
 06f2           2
 06f3           3
@@ -35,6 +38,7 @@ return <<'END';
 06f7           7
 06f8           8
 06f9           9
+0966           0
 0967           1
 0968           2
 0969           3
@@ -44,6 +48,7 @@ return <<'END';
 096d           7
 096e           8
 096f           9
+09e6           0
 09e7           1
 09e8           2
 09e9           3
@@ -58,6 +63,7 @@ return <<'END';
 09f6           3
 09f7           4
 09f9           16
+0a66           0
 0a67           1
 0a68           2
 0a69           3
@@ -67,6 +73,7 @@ return <<'END';
 0a6d           7
 0a6e           8
 0a6f           9
+0ae6           0
 0ae7           1
 0ae8           2
 0ae9           3
@@ -76,6 +83,7 @@ return <<'END';
 0aed           7
 0aee           8
 0aef           9
+0b66           0
 0b67           1
 0b68           2
 0b69           3
@@ -97,6 +105,7 @@ return <<'END';
 0bf0           10
 0bf1           100
 0bf2           1000
+0c66           0
 0c67           1
 0c68           2
 0c69           3
@@ -106,6 +115,7 @@ return <<'END';
 0c6d           7
 0c6e           8
 0c6f           9
+0ce6           0
 0ce7           1
 0ce8           2
 0ce9           3
@@ -115,6 +125,7 @@ return <<'END';
 0ced           7
 0cee           8
 0cef           9
+0d66           0
 0d67           1
 0d68           2
 0d69           3
@@ -124,6 +135,7 @@ return <<'END';
 0d6d           7
 0d6e           8
 0d6f           9
+0e50           0
 0e51           1
 0e52           2
 0e53           3
@@ -133,6 +145,7 @@ return <<'END';
 0e57           7
 0e58           8
 0e59           9
+0ed0           0
 0ed1           1
 0ed2           2
 0ed3           3
@@ -142,6 +155,7 @@ return <<'END';
 0ed7           7
 0ed8           8
 0ed9           9
+0f20           0
 0f21           1
 0f22           2
 0f23           3
@@ -151,6 +165,7 @@ return <<'END';
 0f27           7
 0f28           8
 0f29           9
+1040           0
 1041           1
 1042           2
 1043           3
@@ -183,6 +198,7 @@ return <<'END';
 16ee           17
 16ef           18
 16f0           19
+17e0           0
 17e1           1
 17e2           2
 17e3           3
@@ -192,6 +208,7 @@ return <<'END';
 17e7           7
 17e8           8
 17e9           9
+1810           0
 1811           1
 1812           2
 1813           3
@@ -201,12 +218,14 @@ return <<'END';
 1817           7
 1818           8
 1819           9
+2070           0
 2074           4
 2075           5
 2076           6
 2077           7
 2078           8
 2079           9
+2080           0
 2081           1
 2082           2
 2083           3
@@ -322,6 +341,7 @@ return <<'END';
 2499           18
 249a           19
 249b           20
+24ea           0
 2776           1
 2777           2
 2778           3
@@ -352,6 +372,7 @@ return <<'END';
 2791           8
 2792           9
 2793           10
+3007           0
 3021           1
 3022           2
 3023           3
@@ -374,6 +395,7 @@ return <<'END';
 3287           8
 3288           9
 3289           10
+ff10           0
 ff11           1
 ff12           2
 ff13           3

diff --git a/lib/unicode/mktables.PL b/lib/unicode/mktables.PL
index 241d2e6..2380139 100755 (executable)
--- a/lib/unicode/mktables.PL
+++ b/lib/unicode/mktables.PL
@@ -161,7 +161,7 @@ mkdir "To", 0777;
 
 # Number
 
-    ['Number',         '$num',                 '$num'],
+    ['Number',         '$num ne ""',           '$num'],
 
 # Mirrored