From 4a48147439aaea9f8e753d7cc37b38733d60bdd5 Mon Sep 17 00:00:00 2001
From: ndparker <>
Date: Wed, 7 Mar 2001 02:37:48 +0000
Subject: [PATCH] fixed some bugs, should now produce correct RFC822-Headers
 :-)

---
 selfforum-cgi/shared/Mail.pm | 14 ++++----------
 1 file changed, 4 insertions(+), 10 deletions(-)

diff --git a/selfforum-cgi/shared/Mail.pm b/selfforum-cgi/shared/Mail.pm
index e46a81c..73166c9 100644
--- a/selfforum-cgi/shared/Mail.pm
+++ b/selfforum-cgi/shared/Mail.pm
@@ -186,18 +186,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);
+
+  '';
 }
 
 ##############################################
-- 
2.34.1