diff --git a/Webperl/HTMLValidator.pm b/Webperl/HTMLValidator.pm index 8c9bc22..dd33da9 100644 --- a/Webperl/HTMLValidator.pm +++ b/Webperl/HTMLValidator.pm @@ -46,7 +46,7 @@ my $default_allow = [ ]; # Explicit rules for allowed tags, required to provide per-tag tweaks to the filter. -my $default_rules = { +my $default_rules = [ img => { src => qr{^(?:http|https)://}i, alt => 1, @@ -90,10 +90,10 @@ my $default_rules = { title => 1, '*' => 0, }, -}; +]; # Default ruleset applied when no explicit rule is found for a tag. -my $default_default = { +my $default_default = [ 0 => # default rule, deny all tags { 'href' => qr{^(?:http|https)://[-\w]+(?:\.[-\w]+)/}i, # Force basic URL forms @@ -102,7 +102,7 @@ my $default_default = { 'name' => 1, '*' => 0, # default rule, deny all attributes } -}; +]; ## @fn $ scrub_html($html, $allow, $rules, $default)