summaryrefslogtreecommitdiffstats
path: root/mdkonline.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2006-04-04 16:00:57 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2006-04-04 16:00:57 +0000
commit89c6fb1e3d705eec7ec19d0a3e32bba5feec08cb (patch)
tree5cf650af68db3b1e971ea5fd88dc6650c3cd2d92 /mdkonline.pm
parentec6e2cdbf3e4eb1591a0120d1ab2f1968316eeef (diff)
downloadmgaonline-89c6fb1e3d705eec7ec19d0a3e32bba5feec08cb.tar
mgaonline-89c6fb1e3d705eec7ec19d0a3e32bba5feec08cb.tar.gz
mgaonline-89c6fb1e3d705eec7ec19d0a3e32bba5feec08cb.tar.bz2
mgaonline-89c6fb1e3d705eec7ec19d0a3e32bba5feec08cb.tar.xz
mgaonline-89c6fb1e3d705eec7ec19d0a3e32bba5feec08cb.zip
(check_server_response) fix crash when applet is run as root
Diffstat (limited to 'mdkonline.pm')
-rw-r--r--mdkonline.pm2
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;