Now case insensitive
popped a little 'i' in there, made the matching of to as in 0 or 1master
parent
288926d1d2
commit
629bba3493
|
@ -16,7 +16,7 @@ handle remainder => sub {
|
|||
my $value = $_;
|
||||
$value =~ s/^\s+//;
|
||||
$value =~ s/\s+$//;
|
||||
$value =~ s/ (to|as|in)$//;
|
||||
$value =~ s/ (?:to|as|in)$//i;
|
||||
if ($value =~ /^(?:[0\\]x)?([0-9a-f]+)$/i or $value =~ /^([0-9a-f]+)h?$/i) {
|
||||
my @digits = $1 =~ /(..)/g;
|
||||
my ($pure, $html, $count);
|
||||
|
|
Loading…
Reference in New Issue