From e7901a537bc067a48411d8be68f4c9e708deabc0 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Thu, 21 Sep 2006 12:45:16 +0000
Subject: (check_server_response) return better looking error messages when
 there's no known string for the error code

---
 mdkonline.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'mdkonline.pm')

diff --git a/mdkonline.pm b/mdkonline.pm
index 6c4ddfb8..508a35c1 100644
--- a/mdkonline.pm
+++ b/mdkonline.pm
@@ -221,7 +221,7 @@ sub check_server_response {
     foreach my $num ([9, 8], [21, 20]) { $hash_ret->{$num->[0]} = $hash_ret->{$num->[1]} }
     #    print Dumper($response);
     my $code = $response->{code} || '99';
-    my $answer = $response->{code} eq 0 ? 'OK' : $hash_ret->{$code}[0] . ' : ' . $hash_ret->{$code}[1] . "\n\n" . $response->{message};
+    my $answer = $response->{code} eq 0 ? 'OK' : $hash_ret->{$code} ? $hash_ret->{$code}[0] . ' : ' . $hash_ret->{$code}[1] . "\n\n" . $response->{message} : $response->{message};
     $answer eq 'OK' and write_conf($response) if !$<;
     log::explanations(qq(the server returned "$answer"));
     return $answer;
-- 
cgit v1.2.1