From: Stephen Gran <steve@lobefin.net>
Date: Sat, 10 May 2008 14:37:50 +0000 (+0100)
Subject: Avoid possible undefined variable complaint with length function.
X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;h=6f505a1856573665419aa3330f4f9835a1dcf4bf;p=dak.git

Avoid possible undefined variable complaint with length function.
---

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;