W3C home > Mailing lists > Public > www-validator-cvs@w3.org > February 2010

perl/modules/W3C/LinkChecker/bin checklink,4.181,4.182

From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
Date: Sun, 28 Feb 2010 19:00:20 +0000
To: www-validator-cvs@w3.org
Message-Id: <E1NloNI-0002Dg-AR@lionel-hutz.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

This archive was generated by hypermail 2.3.1 : Wednesday, 7 January 2015 15:17:41 UTC