From 4b55e3c692e92bc883c8321ffdc44f305a1144d3 Mon Sep 17 00:00:00 2001
From: Chris <chris@starforge.co.uk>
Date: Wed, 22 May 2013 14:50:39 +0100
Subject: [PATCH] Well, this is irritating.

---
 Webperl/HTMLValidator.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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)