From d907581bb8e972b54f727bc6dba646135a5b62d5 Mon Sep 17 00:00:00 2001 From: short <> Date: Sat, 18 Dec 2004 09:14:00 +0000 Subject: [PATCH] Cosmetic: Cleanup return code. --- PerlMail/Contacts/9210.pm | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) 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; -- 1.8.3.1