Cosmetic: Cleanup return code.

[PerlMail.git] / PerlMail / Contacts / 9210.pm

diff --git a/PerlMail/Contacts/9210.pm b/PerlMail/Contacts/9210.pm
index 766514b..6980115 100644 (file)
--- 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;