From: Ansgar Burchardt <ansgar@debian.org>
Date: Thu, 6 Dec 2012 11:32:30 +0000 (+0100)
Subject: debianqueued: construct Digest::MD5 object before trying to use it
X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;h=b20b1d58b688bebb896144c6a4c10ed7fb37fe2b;p=dak.git

debianqueued: construct Digest::MD5 object before trying to use it
---

diff --git a/tools/debianqueued-0.9/debianqueued b/tools/debianqueued-0.9/debianqueued
index 4c77e2af..0ead31cc 100755
--- a/tools/debianqueued-0.9/debianqueued
+++ b/tools/debianqueued-0.9/debianqueued
@@ -2134,9 +2134,10 @@ sub rm(@) {
 #
 sub md5sum($) {
   my $file = shift;
+  my $md5 = Digest::MD5->new;
 
   open my $fh, "<", $file or return "";
-  my $md5 = $md5->addfile($fh);
+  $md5->addfile($fh);
   close $fh;
 
   return $md5->hexdigest;