- From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
- Date: Sun, 28 Feb 2010 19:00:20 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv8516
Modified Files:
checklink
Log Message:
Do not pass unused "text" to start handler.
Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.181
retrieving revision 4.182
diff -u -d -r4.181 -r4.182
--- checklink 21 Feb 2010 17:17:47 -0000 4.181
+++ checklink 28 Feb 2010 19:00:18 -0000 4.182
@@ -1673,20 +1673,20 @@
my $p = HTML::Parser::new(@_, api_version => 3);
$p->utf8_mode(1);
- # Start tags
- $p->handler(start => 'start', 'self, tagname, attr, text, line');
- # Declarations
+ # Set up handlers
+
+ $p->handler(start => 'start', 'self, tagname, attr, line');
$p->handler(declaration =>
sub {
my $self = shift;
$self->declaration(substr($_[0], 2, -1));
}, 'self, text, line');
- # Other stuff
+ $p->handler(end_document => 'end_document', 'self, line');
if ($Opts{Progress}) {
$p->handler(default => 'parse_progress', 'self, line');
$p->{last_percentage} = 0;
}
- $p->handler(end_document => 'end_document', 'self, line');
+
# Check <a [..] name="...">?
$p->{check_name} = 1;
# Check <[..] id="..">?
@@ -1780,7 +1780,7 @@
sub start
{
- my ($self, $tag, $attr, $text, $line) = @_;
+ my ($self, $tag, $attr, $line) = @_;
$line = LINE_UNKNOWN() unless defined($line);
# Anchors
Received on Sunday, 28 February 2010 19:00:21 UTC