From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 29 Sep 2005 08:01:56 +0000 (+0000)
Subject: Perl mag es anscheinend nicht, wenn der Block zu map auf der naechsten Zeile beginnt... 
X-Git-Tag: release-2.2.1~11
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=50c5d3d9934d1bc3844f924e706e32da372eb174;p=kivitendo-erp.git

Perl mag es anscheinend nicht, wenn der Block zu map auf der naechsten Zeile beginnt. Merge von 557 aus unstable.
---

diff --git a/bin/mozilla/ct.pl b/bin/mozilla/ct.pl
index e20efd2b9..0e1df522a 100644
--- a/bin/mozilla/ct.pl
+++ b/bin/mozilla/ct.pl
@@ -595,8 +595,7 @@ sub form_header {
 
   $select_greeting =
     qq|&nbsp;<select name=selected_cp_greeting><option></option>|;
-  map(
-     { $select_greeting .= qq|<option>$_</option>|; } @{ $form->{GREETINGS} });
+  map({ $select_greeting .= qq|<option>$_</option>|; } @{ $form->{GREETINGS} });
   $select_greeting .= qq|</select>|;
 ## /LINET