From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 30 Apr 2000 18:17:47 +0000 (+0000)
Subject: Is{Alnum,Alpha,Word} don't match titlecase
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6ab1678291446c3b2fa7bc51479f656832d4052e;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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
--- 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$/',	''],