From ad7a75c412ec8efb993bfaea69e81d82b9a14aa8 Mon Sep 17 00:00:00 2001
From: Daouda Lo <daouda@mandriva.com>
Date: Sat, 25 Sep 2004 21:36:01 +0000
Subject: - some perl_checker test

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

(limited to 'mdkapplet')

diff --git a/mdkapplet b/mdkapplet
index 85fc7068..5cb5614b 100755
--- a/mdkapplet
+++ b/mdkapplet
@@ -28,8 +28,8 @@ use Gtk2::Pango;
 use Digest::MD5;
 
 BEGIN { unshift @::textdomains, 'mdkonline' }
-use ugtk2 qw (:all);
 
+use ugtk2 qw(:all);
 use lib qw(/usr/lib/libDrakX/drakfirsttime);
 use mdkonline;
 use Gtk2::TrayIcon;
@@ -49,7 +49,7 @@ my $localfile = "$localdir/mdkonline";
 
 #compatibility
 mkdir_p($localdir) if !-d $localdir;
--e "$ENV{HOME}/.mdkonline" and system("mv", "$ENV{HOME}/.mdkonline", "$localfile");
+-e "$ENV{HOME}/.mdkonline" and system("mv", "$ENV{HOME}/.mdkonline", $localfile);
 
 is_running('mdkapplet') and die "mdkapplet already running\n";
 
@@ -344,7 +344,7 @@ sub lastCheck {
     my %h = getVarsFromSh($localfile);
     my ($t, $l);
     $t = $h{LASTCHECK} ;
-    $t =~ s/\_/  /g;
+    $t =~ s/_/  /g;
     $t ? $t : N("No check")
 }
 sub getTime {
-- 
cgit v1.2.1