X-Git-Url: https://git.jankratochvil.net/?p=PerlMail.git;a=blobdiff_plain;f=PerlMail%2FContacts%2F9210.pm;h=698011530194ffda9a366b01897126fa65f715a4;hp=766514b20670e98a5d562ef5a5b8819ee0b79deb;hb=d907581bb8e972b54f727bc6dba646135a5b62d5;hpb=6e4fd0be3c3d573ad37bea20275279a322bb4631

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;