This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
6d4f9cf
)
mktables: Now can test surrogates and nonchars
author
Karl Williamson
<public@khwilliamson.com>
Mon, 10 Jan 2011 01:34:43 +0000
(18:34 -0700)
committer
Karl Williamson
<public@khwilliamson.com>
Mon, 10 Jan 2011 02:29:03 +0000
(19:29 -0700)
This is a result of their now being more accepted in core
lib/unicore/mktables
patch
|
blob
|
blame
|
history
diff --git
a/lib/unicore/mktables
b/lib/unicore/mktables
index
6da7202
..
5b1b949
100644
(file)
--- a/
lib/unicore/mktables
+++ b/
lib/unicore/mktables
@@
-4222,8
+4222,6
@@
sub trace { return main::trace(@_); }
# the character very frequently used.
return $try_hard if $code == 0x0000;
- return 0 if $try_hard; # XXX Temporary until fix utf8.c
-
# shun non-character code points.
return $try_hard if $code >= 0xFDD0 && $code <= 0xFDEF;
return $try_hard if ($code & 0xFFFE) == 0xFFFE; # includes FFFF