From 6f505a1856573665419aa3330f4f9835a1dcf4bf Mon Sep 17 00:00:00 2001
From: Stephen Gran <steve@lobefin.net>
Date: Sat, 10 May 2008 15:37:50 +0100
Subject: [PATCH] Avoid possible undefined variable complaint with length
 function.

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

diff --git a/tools/debianqueued-0.9/debianqueued b/tools/debianqueued-0.9/debianqueued
index 97359b0f..6d971826 100755
--- a/tools/debianqueued-0.9/debianqueued
+++ b/tools/debianqueued-0.9/debianqueued
@@ -2124,7 +2124,7 @@ sub send_mail($$$) {
 	my $subject = shift;
 	my $text = shift;
 
-        my $package = join(' ', keys %main::packages);
+        my $package = keys %main::packages ? join(' ', keys %main::packages) : "";
 
         use Email::Send;
 
-- 
2.39.2