From: Stephen Gran Date: Sat, 10 May 2008 14:37:50 +0000 (+0100) Subject: Avoid possible undefined variable complaint with length function. X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6f505a1856573665419aa3330f4f9835a1dcf4bf;p=dak 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;