This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: Now can test surrogates and nonchars
authorKarl Williamson <public@khwilliamson.com>
Mon, 10 Jan 2011 01:34:43 +0000 (18:34 -0700)
committerKarl 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

index 6da7202..5b1b949 100644 (file)
@@ -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