- From: Ville Skytta <ville@hutz.w3.org>
- Date: Sun, 11 Apr 2004 20:32:09 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv7670/bin
Modified Files:
checklink
Log Message:
Use "(no message)" if for some reason we do not receive a reason phrase in the response status line.
Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 3.32
retrieving revision 3.33
diff -u -d -r3.32 -r3.33
--- checklink 11 Apr 2004 19:33:39 -0000 3.32
+++ checklink 11 Apr 2004 20:32:06 -0000 3.33
@@ -64,7 +64,7 @@
my $response = $self->W3C::UserAgent::SUPER::simple_request(@_);
if (! defined($self->{FirstResponse})) {
$self->{FirstResponse} = $response->code();
- $self->{FirstMessage} = $response->message();
+ $self->{FirstMessage} = $response->message() || '(no message)';
}
return $response;
}
@@ -841,7 +841,7 @@
} else {
&html_header($uri) if $Opts{HTML};
&hprintf("\nError: %d %s\n",
- $response->code(), $response->message());
+ $response->code(), $response->message() || '(no message)');
}
}
$response->{Stop} = 1;
@@ -1027,7 +1027,7 @@
# Rewind, check for the original code and message.
for (my $tmp = $response->previous(); $tmp; $tmp = $tmp->previous()) {
$results{$uri}{location}{orig} = $tmp->code();
- $results{$uri}{location}{orig_message} = $tmp->message();
+ $results{$uri}{location}{orig_message} = $tmp->message() || '(no message)';
}
$results{$uri}{location}{success} = $response->is_success();
# Stores the authentication information
@@ -1044,7 +1044,7 @@
$results{$uri}{location}{record} = $results{$uri}{location}{display};
}
# Did it fail?
- $results{$uri}{location}{message} = $response->message();
+ $results{$uri}{location}{message} = $response->message() || '(no message)';
if (! $results{$uri}{location}{success}) {
&hprintf("Error: %d %s\n",
$results{$uri}{location}{code},
Received on Sunday, 11 April 2004 16:32:13 UTC