diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-04-30 18:17:47 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-04-30 18:17:47 +0000 |
| commit | 6ab1678291446c3b2fa7bc51479f656832d4052e (patch) | |
| tree | 73b15fc836ed4be974544ad62f2e8b483ddbae9c | |
| parent | 7e84c16c57fe111372685c242980ee41cdbe1d3e (diff) | |
| download | perl-6ab1678291446c3b2fa7bc51479f656832d4052e.tar.gz | |
Is{Alnum,Alpha,Word} don't match titlecase
TODO: IsSpace is defined recursively!
(both spotted by Larry)
p4raw-id: //depot/perl@6025
| -rw-r--r-- | lib/unicode/Is/Alnum.pl | 17 | ||||
| -rw-r--r-- | lib/unicode/Is/Alpha.pl | 17 | ||||
| -rw-r--r-- | lib/unicode/Is/Word.pl | 17 | ||||
| -rwxr-xr-x | lib/unicode/mktables.PL | 7 |
4 files changed, 19 insertions, 39 deletions
diff --git a/lib/unicode/Is/Alnum.pl b/lib/unicode/Is/Alnum.pl index d44f744e20..203860bac1 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 0e94688e85..90020b8fb6 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 23186bd27d..2f13b382af 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 f4ae601758..4f705a4016 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$/', ''], |