diff options
| author | hugo <hugo@localhost> | 2003-09-11 10:46:24 +0000 |
|---|---|---|
| committer | hugo <hugo@localhost> | 2003-09-11 10:46:24 +0000 |
| commit | b34533c9575a73118aed20472823c6ebd64c4074 (patch) | |
| tree | a3ff4a9a883e5d83a186f57a4c9cf54d4124edab | |
| parent | 0fafcfbbbc11cb6b84c5116da09cbf3d3e5931ef (diff) | |
| download | markup-validator-b34533c9575a73118aed20472823c6ebd64c4074.zip markup-validator-b34533c9575a73118aed20472823c6ebd64c4074.tar.gz markup-validator-b34533c9575a73118aed20472823c6ebd64c4074.tar.bz2 | |
Fixing the following:
[Thu Sep 11 12:44:53 2003] checklink.pl: Argument "help" isn't numeric in exit at /home/hugo/bin/checklink.pl line 410.
| -rwxr-xr-x | httpd/cgi-bin/checklink.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/httpd/cgi-bin/checklink.pl b/httpd/cgi-bin/checklink.pl index b34dbeb..3f85047 100755 --- a/httpd/cgi-bin/checklink.pl +++ b/httpd/cgi-bin/checklink.pl @@ -5,7 +5,7 @@ # (c) 1999-2003 World Wide Web Consortium # based on Renaud Bruyeron's checklink.pl # -# $Id: checklink.pl,v 3.7 2003-05-24 20:32:50 link Exp $ +# $Id: checklink.pl,v 3.8 2003-09-11 10:46:24 hugo Exp $ # # This program is licensed under the W3C(r) License: # http://www.w3.org/Consortium/Legal/copyright-software @@ -85,7 +85,7 @@ BEGIN # Version info $PROGRAM = 'W3C checklink'; ($AGENT = $PROGRAM) =~ s/\s+/-/g; - ($CVS_VERSION) = q$Revision: 3.7 $ =~ /(\d+[\d\.]*\.\d+)/; + ($CVS_VERSION) = q$Revision: 3.8 $ =~ /(\d+[\d\.]*\.\d+)/; $VERSION = sprintf('%d.%02d', $CVS_VERSION =~ /(\d+)\.(\d+)/); $REVISION = sprintf('version %s (c) 1999-2003 W3C', $CVS_VERSION); @@ -315,7 +315,7 @@ sub parse_arguments () Getopt::Long::Configure('bundling', 'no_ignore_case'); my @masq = (); - GetOptions('help' => \&usage, + GetOptions('help' => \&usage(0), 'q|quiet' => sub { $Opts{Quiet} = 1; $Opts{Summary_Only} = 1; }, |