From 878459de08a5be8b73377b4f5d53c946447fdf67 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Fri, 3 Jun 2005 10:48:17 +0000
Subject: use perl_checker compliant md5file() from net_applet (this ought to
 be moved in some common module, it is used in userdrake as well)

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

(limited to 'mdkapplet')

diff --git a/mdkapplet b/mdkapplet
index bbe94c96..566730bd 100755
--- a/mdkapplet
+++ b/mdkapplet
@@ -26,7 +26,6 @@ use interactive;
 use common;
 
 use Gtk2::Pango;
-use Digest::MD5;
 
 BEGIN { unshift @::textdomains, 'mdkonline' }
 
@@ -183,11 +182,12 @@ sub showMainWindow() {
 }
 sub md5file {
     my @md5;
+    require Digest::MD5;
     foreach my $file (@_) {
-	open(FILE, $file) or do { print STDERR "Can't open '$file': $!"; push @md5, "" };
-	binmode(FILE);
-	push @md5, Digest::MD5->new->addfile(*FILE)->hexdigest;
-	close(FILE);
+	open(my $FILE, $file) or do { print STDERR "Can not open '$file': $!"; push @md5, "" };
+	binmode($FILE);
+	push @md5, Digest::MD5->new->addfile($FILE)->hexdigest;
+	close($FILE);
     }
     return wantarray() ? @md5 : $md5[0];
 }
-- 
cgit v1.2.1