Perl mag es anscheinend nicht, wenn der Block zu map auf der naechsten Zeile beginnt...
authorMoritz Bunkus <m.bunkus@linet-services.de>
Thu, 29 Sep 2005 08:01:16 +0000 (08:01 +0000)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Thu, 29 Sep 2005 08:01:16 +0000 (08:01 +0000)
bin/mozilla/ct.pl

index e20efd2..0e1df52 100644 (file)
@@ -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