perl/modules/W3C/LinkChecker/bin checklink,3.32,3.33

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