Now case insensitive

popped a little 'i' in there, made the matching of to as in 0 or 1
master
Daniel Bech 2016-05-01 21:22:46 +08:00
parent 288926d1d2
commit 629bba3493
1 changed files with 1 additions and 1 deletions

View File

@ -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);