use charnames ();
use Unicode::Normalize qw(getCombinClass NFD);
-our $VERSION = '0.35';
+our $VERSION = '0.36';
use Storable qw(dclone);
my ($start, $end, $value) = / ^ (.+?) \t (.*?) \t (.+?)
\s* ( \# .* )? # Optional comment
$ /x;
- $end = $start if $end eq "";
+ my $decimal_start = hex $start;
+ my $decimal_end = ($end eq "") ? $decimal_start : hex $end;
if ($return_hash) {
- foreach my $i (hex $start .. hex $end) {
+ foreach my $i ($decimal_start .. $decimal_end) {
$return{$i} = $value;
}
}
else {
- push @return, [ hex $start, hex $end, $value ];
+ push @return, [ $decimal_start, $decimal_end, $value ];
}
}
return ($return_hash) ? %return : @return;