Is{Alnum,Alpha,Word} don't match titlecase

TODO: IsSpace is defined recursively!

(both spotted by Larry)

p4raw-id: //depot/perl@6025

diff --git a/lib/unicode/Is/Alnum.pl b/lib/unicode/Is/Alnum.pl
index d44f744..203860b 100644 (file)
--- a/lib/unicode/Is/Alnum.pl
+++ b/lib/unicode/Is/Alnum.pl
@@ -10,11 +10,7 @@ return <<'END';
 00ba   
 00c0   00d6
 00d8   00f6
-00f8   01c4
-01c6   01c7
-01c9   01ca
-01cc   01f1
-01f3   021f
+00f8   021f
 0222   0233
 0250   02ad
 0386   
@@ -210,19 +206,16 @@ return <<'END';
 1f5b   
 1f5d   
 1f5f   1f7d
-1f80   1f87
-1f90   1f97
-1fa0   1fa7
-1fb0   1fb4
-1fb6   1fbb
+1f80   1fb4
+1fb6   1fbc
 1fbe   
 1fc2   1fc4
-1fc6   1fcb
+1fc6   1fcc
 1fd0   1fd3
 1fd6   1fdb
 1fe0   1fec
 1ff2   1ff4
-1ff6   1ffb
+1ff6   1ffc
 207f   
 2102   
 2107   

diff --git a/lib/unicode/Is/Alpha.pl b/lib/unicode/Is/Alpha.pl
index 0e94688..90020b8 100644 (file)
--- a/lib/unicode/Is/Alpha.pl
+++ b/lib/unicode/Is/Alpha.pl
@@ -9,11 +9,7 @@ return <<'END';
 00ba   
 00c0   00d6
 00d8   00f6
-00f8   01c4
-01c6   01c7
-01c9   01ca
-01cc   01f1
-01f3   021f
+00f8   021f
 0222   0233
 0250   02ad
 0386   
@@ -193,19 +189,16 @@ return <<'END';
 1f5b   
 1f5d   
 1f5f   1f7d
-1f80   1f87
-1f90   1f97
-1fa0   1fa7
-1fb0   1fb4
-1fb6   1fbb
+1f80   1fb4
+1fb6   1fbc
 1fbe   
 1fc2   1fc4
-1fc6   1fcb
+1fc6   1fcc
 1fd0   1fd3
 1fd6   1fdb
 1fe0   1fec
 1ff2   1ff4
-1ff6   1ffb
+1ff6   1ffc
 207f   
 2102   
 2107   

diff --git a/lib/unicode/Is/Word.pl b/lib/unicode/Is/Word.pl
index 23186bd..2f13b38 100644 (file)
--- a/lib/unicode/Is/Word.pl
+++ b/lib/unicode/Is/Word.pl
@@ -11,11 +11,7 @@ return <<'END';
 00ba   
 00c0   00d6
 00d8   00f6
-00f8   01c4
-01c6   01c7
-01c9   01ca
-01cc   01f1
-01f3   021f
+00f8   021f
 0222   0233
 0250   02ad
 0386   
@@ -211,19 +207,16 @@ return <<'END';
 1f5b   
 1f5d   
 1f5f   1f7d
-1f80   1f87
-1f90   1f97
-1fa0   1fa7
-1fb0   1fb4
-1fb6   1fbb
+1f80   1fb4
+1fb6   1fbc
 1fbe   
 1fc2   1fc4
-1fc6   1fcb
+1fc6   1fcc
 1fd0   1fd3
 1fd6   1fdb
 1fe0   1fec
 1ff2   1ff4
-1ff6   1ffb
+1ff6   1ffc
 207f   
 2102   
 2107   

diff --git a/lib/unicode/mktables.PL b/lib/unicode/mktables.PL
index f4ae601..4f705a4 100755 (executable)
--- a/lib/unicode/mktables.PL
+++ b/lib/unicode/mktables.PL
@@ -11,9 +11,10 @@ mkdir "To", 0777;
 @todo = (
 # typical
 
-    ['IsWord',  '$cat =~ /^L[ulo]|^Nd/ or $code eq "005F"',    ''],
-    ['IsAlnum', '$cat =~ /^L[ulo]|^Nd/',       ''],
-    ['IsAlpha',  '$cat =~ /^L[ulo]/',  ''],
+    ['IsWord',  '$cat =~ /^L[ulot]|^Nd/ or $code eq "005F"',   ''],
+    ['IsAlnum', '$cat =~ /^L[ulot]|^Nd/',      ''],
+    ['IsAlpha',  '$cat =~ /^L[ulot]/', ''],
+    # XXX broken: recursive definition (/\s/ will look up IsSpace in future)
     ['IsSpace',  '$cat =~ /^Z/ or $code lt "0020" and chr(hex $code) =~ /^\s/',        ''],
     ['IsDigit',  '$cat =~ /^Nd$/',     ''],
     ['IsUpper',  '$cat =~ /^Lu$/',     ''],