diff options
| author | hugo <hugo@localhost> | 2000-07-10 15:21:37 +0000 |
|---|---|---|
| committer | hugo <hugo@localhost> | 2000-07-10 15:21:37 +0000 |
| commit | 86a2f961ea753f21df3f2bc25399bd5e9cf333fa (patch) | |
| tree | 66a4feeb33e13197fd5018de57c9a5eabfb86ce4 | |
| parent | 127e5eee9b1ebd974912694f29398ed44f19de56 (diff) | |
| download | markup-validator-86a2f961ea753f21df3f2bc25399bd5e9cf333fa.zip markup-validator-86a2f961ea753f21df3f2bc25399bd5e9cf333fa.tar.gz markup-validator-86a2f961ea753f21df3f2bc25399bd5e9cf333fa.tar.bz2 | |
Fixed a bug due to the migration to the version 3 API
| -rwxr-xr-x | httpd/cgi-bin/checklink.pl | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/httpd/cgi-bin/checklink.pl b/httpd/cgi-bin/checklink.pl index 5785147..e153028 100755 --- a/httpd/cgi-bin/checklink.pl +++ b/httpd/cgi-bin/checklink.pl @@ -5,7 +5,7 @@ # (c) 1999-2000 World Wide Web Consortium # based on Renaud Bruyeron's checklink.pl # -# $Id: checklink.pl,v 2.54 2000-06-23 19:09:52 hugo Exp $ +# $Id: checklink.pl,v 2.55 2000-07-10 15:21:37 hugo Exp $ # # This program is licensed under the W3C(r) License: # http://www.w3.org/Consortium/Legal/copyright-software @@ -31,7 +31,7 @@ $| = 1; # Version info my $PROGRAM = 'W3C checklink'; -my $VERSION = q$Revision: 2.54 $ . '(c) 1999-2000 W3C'; +my $VERSION = q$Revision: 2.55 $ . '(c) 1999-2000 W3C'; my $REVISION; ($REVISION = $VERSION) =~ s/Revision: (\d+\.\d+) .*/$1/; # Different options specified by the user @@ -767,10 +767,8 @@ sub parse_document() { #################################### sub W3C::CheckLink::new() { - my $p = HTML::Parser::new(@_); + my $p = HTML::Parser::new(@_, api_version => 3); - # Using API version 3 - $p->{api_version} = 3; # Start tags $p->handler(start => 'start', 'self, tagname, attr, text, event, tokens'); # Declarations |