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 = $_;
|
my $value = $_;
|
||||||
$value =~ s/^\s+//;
|
$value =~ s/^\s+//;
|
||||||
$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) {
|
if ($value =~ /^(?:[0\\]x)?([0-9a-f]+)$/i or $value =~ /^([0-9a-f]+)h?$/i) {
|
||||||
my @digits = $1 =~ /(..)/g;
|
my @digits = $1 =~ /(..)/g;
|
||||||
my ($pure, $html, $count);
|
my ($pure, $html, $count);
|
||||||
|
|
Loading…
Reference in New Issue