From: short <>
Date: Sat, 18 Dec 2004 09:14:00 +0000 (+0000)
Subject: Cosmetic: Cleanup return code.
X-Git-Tag: bp_lace~13
X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=commitdiff_plain;h=d907581bb8e972b54f727bc6dba646135a5b62d5

Cosmetic: Cleanup return code.
---

diff --git a/PerlMail/Contacts/9210.pm b/PerlMail/Contacts/9210.pm
index 766514b..6980115 100644
--- a/PerlMail/Contacts/9210.pm
+++ b/PerlMail/Contacts/9210.pm
@@ -118,11 +118,7 @@ my($self,$data)=@_;
 				"FIELD-DATA"=>$mail_data,
 				} if $mail_name||$mail_data;
 		}
-	my @r;
-	for my $id (sort { ($a<=>$b); } keys(%id)) {
-		do { push @r,$_ if $_; } for $id{$id}{""};
-		}
-	return @r;
+	return map(($id{$_}{""}||()),(sort { ($a<=>$b); } keys(%id)));
 }
 
 1;