Avoid possible undefined variable complaint with length function.

diff --git a/tools/debianqueued-0.9/debianqueued b/tools/debianqueued-0.9/debianqueued
index 97359b0f8b540099e9dd546cb28a0550d62fee23..6d971826df6ccb3ddcc7373ca937fdfcb4c42479 100755 (executable)
--- 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;