add parens around scheme regexp

diff --git a/IkiWiki/Plugin/htmlscrubber.pm b/IkiWiki/Plugin/htmlscrubber.pm
index e02a8591ef2eac17d9d34eba4031bcdb7ce6b3ab..897a398bae7cfe1d87b1b1b618857a407afa10f7 100644 (file)
--- a/IkiWiki/Plugin/htmlscrubber.pm
+++ b/IkiWiki/Plugin/htmlscrubber.pm
@@ -37,7 +37,7 @@ sub scrubber { #{{{
        );
        # data is a special case. Allow data:image/*, but
        # disallow data:text/javascript and everything else.
        );
        # 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 $@;
 
        eval q{use HTML::Scrubber};
        error($@) if $@;