From a5b0ba36b1b47889f9706da0f11b8458aac51c6a Mon Sep 17 00:00:00 2001
From: Mandrake <mandrake@mandriva.com>
Date: Thu, 26 Oct 2006 11:07:07 +0000
Subject: $last_change is sometime empty

---
 lib/Youri/Submit/Reject/Mail.pm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/lib/Youri/Submit/Reject/Mail.pm b/lib/Youri/Submit/Reject/Mail.pm
index 0fcb6db..17f883d 100644
--- a/lib/Youri/Submit/Reject/Mail.pm
+++ b/lib/Youri/Submit/Reject/Mail.pm
@@ -65,13 +65,12 @@ sub run {
         $package->get_revision_name();
     my $information = $package->get_information();
     my $last_change = $package->get_last_change();
+    my $author = $last_change->[Youri::Package::CHANGE_AUTHOR] if $last_change;
+    my $list = map { "- $_\n" } @{$last_change->[Youri::Package::CHANGE_TEXT]} if $last_change;
     my $content =
         "Errors: \n\n" . join("\n- ", @$errors) . "\n\n" . 
         $information . "\n" .
-        $last_change->[Youri::Package::CHANGE_AUTHOR] . ":\n" .
-        join(
-            '', map { "- $_\n" } @{$last_change->[Youri::Package::CHANGE_TEXT]}
-        );
+        $author . ":\n$list";
 
     # ensure proper codeset conversion
     # for informations coming from package
-- 
cgit v1.2.1