From 2765ee43e8240a460479770586c1c643cccfc1ce Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 29 Mar 2006 22:21:08 +0000
Subject: perl_checker cleanups

---
 mdkapplet | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'mdkapplet')

diff --git a/mdkapplet b/mdkapplet
index 64f87685..a9bd7309 100755
--- a/mdkapplet
+++ b/mdkapplet
@@ -45,7 +45,7 @@ my $in = interactive->vnew('');
 
 ugtk2::add_icon_path("/usr/share/mdkonline/pixmaps/");
 my $online_site = "https://www.mandrivaonline.com/";
-my ($menu, $timeout, $eventbox, $img, $mLog, $buffer, $textview, $wlog, $textvw, $state_global, $MW_vbox, $isAvailable);
+my ($menu, $timeout, $eventbox, $img, $mLog, $buffer, $textview, $wlog, $textvw, $state_global, $MW_vbox);
 my ($raisedwindow, $debug, $conf_launched) = (0, 0, 0);
 
 
@@ -280,9 +280,9 @@ sub silentCheck() {
     my $response = mdkonline::soap_get_updates_for_host($h{HOST_ID}, $h{HOST_KEY});
     my $status_err = mdkonline::check_server_response($response);
     if ($status_err eq 'OK') {
-        $ct = $response->{data}->{updates};
+        $ct = $response->{data}{updates};
         # are there any updates ?
-        if (@{$ct}) {
+        if (@$ct) {
             logIt(N("Checking... Updates are available\n") . "\n");
             go2State('updates');
         } else {     # no update
@@ -310,7 +310,7 @@ sub silentCheck() {
 	logIt(N("Response from Mandriva Online server\n") . Data::Dumper->Dumper($response));
     }
 }
-sub okState() { $isAvailable = 0; logIt(N("System is up-to-date\n")); go2State('okay') }
+sub okState() { logIt(N("System is up-to-date\n")); go2State('okay') }
 sub compareWithInstalled {
     my ($name, $ver, $rel, $t) = @_;
     my $isUpdate = 0;
-- 
cgit v1.2.1