summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2006-03-29 22:21:08 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2006-03-29 22:21:08 +0000
commit2765ee43e8240a460479770586c1c643cccfc1ce (patch)
tree8a369c19bbfb0e3bbf0499eff352a0bb1875278b
parent4f2cb0b1acec606f85238bff38c69a45eead0bdf (diff)
downloadmgaonline-2765ee43e8240a460479770586c1c643cccfc1ce.tar
mgaonline-2765ee43e8240a460479770586c1c643cccfc1ce.tar.gz
mgaonline-2765ee43e8240a460479770586c1c643cccfc1ce.tar.bz2
mgaonline-2765ee43e8240a460479770586c1c643cccfc1ce.tar.xz
mgaonline-2765ee43e8240a460479770586c1c643cccfc1ce.zip
perl_checker cleanups
-rwxr-xr-xmdkapplet8
1 files changed, 4 insertions, 4 deletions
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;