Properly use HTML::StripScripts::Parser in the 'testdata' filter.

This commit is contained in:
zach%zachlipton.com 2005-11-18 02:27:11 +00:00
Родитель 919fa7e525
Коммит a0688e7a7a
1 изменённых файлов: 8 добавлений и 7 удалений

Просмотреть файл

@ -65,13 +65,14 @@ my %constants;
$constants{litmus_version} = $Litmus::Config::version;
# html tag stripper:
my $strip = HTML::StripScripts::Parser->new({
Context => 'Inline',
AllowHref => 1,
BanAllBut => ['a', 'b', 'br', 'em', 'p', 'i', 'hr',
'ul', 'ol', 'li'],
strict_names => 1,
});
my $strip = HTML::StripScripts::Parser->new(
{
AllowHref => 1,
BanAllBut => ['a', 'b', 'br', 'em', 'p', 'i', 'hr',
'ul', 'ol', 'li'],
},
strict_names => 1,
);
###############################################################################
# Templatization Code