sub DESTROY {}
-sub croak { require Carp; Carp::croak(@_) }
-
my %Cache;
+sub croak { require Carp; Carp::croak(@_) }
+
##
## "SWASH" == "SWATCH HASH". A "swatch" is a swatch of the Unicode landscape
##
}
else {
LINE:
- while (/^([0-9a-fA-F]+)(?:\t([0-9a-fA-F]+))?/mg) {
+ while (/^([0-9a-fA-F]+)(?:[ \t]+([0-9a-fA-F]+))?/mg) {
my $min = hex $1;
my $max = (defined $2 ? hex $2 : $min);
next if $max < $start;