- don't use perl checker advisory

1 files changed, 4 insertions, 5 deletions

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];
 }