basically enable to run on 2008.0 by removing usage of new perl-5.10 features

2 files changed, 4 insertions, 3 deletions

diff --git a/NEWS b/NEWS
index bc932228..e26bdb0f 100644
--- a/NEWS
+++ b/NEWS
@@ -1,5 +1,7 @@
 - mdkapplet-extended-maintenance-helper
   o retrieve product URL instead of relying on caller to provide it
+- mdkapplet
+  o enable to run on 2008.0
 
 Version 2.77.15.2 - 25 January 2010, Thierry Vignaud
 
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;