$map->{tag} = shift @tokens;
while (defined (my $tok = shift @tokens)) {
last if ($tok =~ m/^#/);
- if ($tok =~ m/^[a-z]:'/ and $tok !~ /^'$/) {
+ if ($tok =~ m/^[a-zA-Z]:'/ and $tok !~ /^'$/) {
$tok .= ' ' . shift @tokens
until ($tokens[0] =~ m/'$/);
$tok .= ' ' . shift @tokens;
{ push @{$map->{mods}}, $tok }
elsif ($tok =~ m/^f:/)
{ push @{$map->{filt}}, $tok }
- elsif ($tok =~ m/^[a-z0-9]$/)
+ elsif ($tok =~ m/^[a-zA-Z0-9]$/)
{ $map->{sub} = $tok }
elsif ($tok =~ /^c:(.*)$/)
{ $map->{sep} = $1 }