diff options
| -rw-r--r-- | mdkonline.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/mdkonline.pm b/mdkonline.pm index c008a9bc..3b4f07b3 100644 --- a/mdkonline.pm +++ b/mdkonline.pm @@ -199,7 +199,7 @@ sub check_server_response { # 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}; - $answer eq 'OK' and write_conf($response); + $answer eq 'OK' and write_conf($response) if !$<; log::explanations(qq(the server returned "$answer")); return $answer; |