add parens around scheme regexp

master
Joey Hess 2008-02-10 16:29:46 -05:00
parent a7be7bdf56
commit 2078f706d6
1 changed files with 1 additions and 1 deletions

View File

@ -37,7 +37,7 @@ sub scrubber { #{{{
);
# data is a special case. Allow data:image/*, but
# disallow data:text/javascript and everything else.
my $link=qr/^(?:$uri_schemes:|data:image\/|[^:]+$)/i;
my $link=qr/^(?:(?:$uri_schemes):|data:image\/|[^:]+$)/i;
eval q{use HTML::Scrubber};
error($@) if $@;