From c370ecb4e00dba76401c2369e9342bafa534bd69 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Mon, 18 Jul 2005 10:22:25 +0000
Subject: import md5file from net_applet/mdkonline/userdrake

---
 perl-install/common.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'perl-install/common.pm')

diff --git a/perl-install/common.pm b/perl-install/common.pm
index d05c1afd9..3ce56f91f 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -297,4 +297,18 @@ sub unpack_with_refs {
     @r;
 }
 
+sub md5file {
+    require Digest::MD5;
+    my @md5 = map {
+        my $sum;
+	if (open(my $FILE, $_)) {
+            binmode($FILE);
+            $sum = Digest::MD5->new->addfile($FILE)->hexdigest;
+            close($FILE);
+        }
+        $sum;
+    } @_;
+    return wantarray() ? @md5 : $md5[0];
+}
+
 1;
-- 
cgit v1.2.1