25 lines
621 B
Perl
25 lines
621 B
Perl
$NetBSD: patch-htmllint.pm,v 1.1 2016/08/16 00:11:35 maya Exp $
|
|
|
|
defined(%hash) was deprecated in perl and errors out
|
|
|
|
--- htmllint.pm.orig 2005-10-19 08:02:26.000000000 +0000
|
|
+++ htmllint.pm
|
|
@@ -4695,7 +4695,7 @@ sub WhineOmitEndTag
|
|
|
|
sub Whine
|
|
{
|
|
- unless (defined(%messages)) { # ¥Ç¥Ð¥°ÍÑ
|
|
+ unless (%messages) { # ¥Ç¥Ð¥°ÍÑ
|
|
print @_, "\n";
|
|
return;
|
|
}
|
|
@@ -5094,7 +5094,7 @@ sub ReadOptions
|
|
|
|
sub ListWarnings(;\@)
|
|
{
|
|
- &ReadWarnings unless defined(%messages);
|
|
+ &ReadWarnings unless %messages;
|
|
my $aref = shift;
|
|
my %msgshort;
|
|
foreach my $id (keys %shortid) { $msgshort{$shortid{$id}} = $id; }
|