From b20b1d58b688bebb896144c6a4c10ed7fb37fe2b Mon Sep 17 00:00:00 2001
From: Ansgar Burchardt <ansgar@debian.org>
Date: Thu, 6 Dec 2012 12:32:30 +0100
Subject: [PATCH] debianqueued: construct Digest::MD5 object before trying to
 use it

---
 tools/debianqueued-0.9/debianqueued | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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;
-- 
2.39.2