X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/ba659b53059e637777865e646f0f2a6fb7f2988e..aaff267fdddc495df3bfa2fc0eb0d20a76b6d220:/selfforum-cgi/shared/Mail.pm?ds=inline

diff --git a/selfforum-cgi/shared/Mail.pm b/selfforum-cgi/shared/Mail.pm
index e46a81c..8ba56e3 100644
--- a/selfforum-cgi/shared/Mail.pm
+++ b/selfforum-cgi/shared/Mail.pm
@@ -18,14 +18,13 @@ use strict;
 
 package Mail;
 
-use vars qw($mailbox $mailprog @ISA @EXPORT);
+use vars qw($mailbox $mailprog @EXPORT);
 
 # ===================
 # Funktionsexport
 # ===================
 
-require Exporter;
-@ISA = qw(Exporter);
+use base qw(Exporter);
 @EXPORT = qw(is_mail_address send_mail);
 
 ########################################
@@ -186,18 +185,12 @@ sub encode_qp ($)
 
 sub get_list ($$) {
   my ($start,$list)=splice @_;
-  my $string="";
 
-  return "" unless (length($list));
-  if (ref($list)) {
-    return "" unless (@$list);
-    foreach (@$list) {
-      $string.="$start: $_\n";}}
-  else {
-    $string="$start: $list\n";}
+  return $start . ': ' . $list . "\n" if (defined $list and not ref $list and length $list);
 
-  # Rueckgabe
-  $string;
+  return $start . ': ' . join (', ',@$list) . "\n" if (ref $list);
+
+  '';
 }
 
 ##############################################