my ($p, $tables, $classes);
$p = HTML::Parser->new(api_version => 3);
-$p->strict_names(1);
+$p->strict_names(1);
my $create = q|
CREATE TABLE foo (
my $status;
eval {
- $status = $p->parse($parsed);
+ $status = $p->parse($parsed);
};
if ($@) {
daig $@;
$classes++;
}
}, 'tagname,attr',
- ],
+ ],
);
}