From e8b4b287fbf54eeee0cec07dbce9adb3f2304692 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Tue, 26 Jan 2010 16:48:27 +0000
Subject: basically enable to run on 2008.0 by removing usage of new perl-5.10
 features

---
 mdkapplet | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'mdkapplet')

diff --git a/mdkapplet b/mdkapplet
index c9c0ef97..b32f29a6 100755
--- a/mdkapplet
+++ b/mdkapplet
@@ -27,7 +27,6 @@ use lib qw(/usr/lib/libDrakX);
 use standalone; # for explanations
 use common;
 use run_program;
-use feature 'state';
 
 BEGIN { unshift @::textdomains, 'mdkonline' }
 
@@ -591,7 +590,7 @@ sub checker_exit {
 }
 
 sub silentCheck() {
-    state $check_time;
+    my $check_time if 0;
     my $new_time = time();
     if (!$check_time || $new_time - $check_time > $config{DISTRO_CHECK_DELAY}) {
         clean_distro_cache();
@@ -762,7 +761,7 @@ sub shouldStart() {
 sub setState {
     my ($state) = @_;
     my $checkme;
-    state $previous_state;
+    my $previous_state if 0;
     my @arr = @{$state{$state}{menu}};
     my $tmp = eval { gtkcreate_pixbuf($state{$state}{colour}[0]) };
     $icon->set_from_pixbuf($tmp) if $tmp;
-- 
cgit v1.2.1