From 3e6b1405d9c446c0aa67fa4bcffc76533c6bb5c8 Mon Sep 17 00:00:00 2001
From: Daouda Lo <daouda@mandriva.com>
Date: Fri, 1 Oct 2004 08:19:34 +0000
Subject: - don't use perl checker advisory

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

(limited to 'mdkapplet')

diff --git a/mdkapplet b/mdkapplet
index 5ecc3dee..83660834 100755
--- a/mdkapplet
+++ b/mdkapplet
@@ -175,12 +175,11 @@ sub showMainWindow() {
 }
 sub md5file {
     my @md5;
-    my $F;
     foreach my $file (@_) {
-	open($F, $file) or do { print STDERR "Can't open '$file': $!"; push @md5, "" };
-	binmode($F);
-	push @md5, Digest::MD5->new->addfile(*F)->hexdigest;
-	close($F);
+	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);
     }
     return wantarray() ? @md5 : $md5[0];
 }
-- 
cgit v1.2.1