o5r/acme
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Ops, tags can contain numbers (h1 and friends)

Browse source
This commit is contained in:
Ev Bogdanov 2018-01-20 18:07:28 +03:00
parent e1c7097e96
commit e5b40a3f7c
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
bin/em
View file

@ -47,7 +47,7 @@ BEGIN {
sub get_tag { sub get_tag {
my $input = shift; my $input = shift;
my ($tag) = $input =~ /^([a-z-]+)/i; my ($tag) = $input =~ /^([a-z0-9-]+)/i;
return "div" unless $tag; return "div" unless $tag;
if (my $alias = $ALIASES{$tag}) { if (my $alias = $ALIASES{$tag}) {
return $alias; return $alias;
@ -57,7 +57,7 @@ BEGIN {
sub get_classes { sub get_classes {
my $input = shift; my $input = shift;
my ($classes_str) = $input =~ /^[a-z-]*\.([a-z0-9-_.]*)/i; my ($classes_str) = $input =~ /^[a-z0-9-]*\.([a-z0-9-_.]*)/i;
return split /\./, $classes_str; return split /\./, $classes_str;
} }