if ($list) {
my @tmp = split(/^/m, $list);
my %seen;
- local $^W = 0;
+ no warnings;
$extras = join '', grep /^[^0-9a-fA-F]/, @tmp;
$list = join '',
sort { hex $a <=> hex $b }
# print "$min $max $val\n";
if ($none) {
if ($min < $start) {
- $val += $start - $min;
- $val = $none if $val > $none;
+ $val += $start - $min if $val < $none;
$min = $start;
}
for ($key = $min; $key <= $max; $key++) {