From 89c6fb1e3d705eec7ec19d0a3e32bba5feec08cb Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 4 Apr 2006 16:00:57 +0000 Subject: (check_server_response) fix crash when applet is run as root --- mdkonline.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'mdkonline.pm') 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; -- cgit v1.2.1