Revision 7337082f
Von Moritz Bunkus vor mehr als 19 Jahren hinzugefügt
| bin/mozilla/ct.pl | ||
|---|---|---|
| 595 | 595 |
|
| 596 | 596 |
$select_greeting = |
| 597 | 597 |
qq| <select name=selected_cp_greeting><option></option>|; |
| 598 |
map( |
|
| 599 |
{ $select_greeting .= qq|<option>$_</option>|; } @{ $form->{GREETINGS} });
|
|
| 598 |
map({ $select_greeting .= qq|<option>$_</option>|; } @{ $form->{GREETINGS} });
|
|
| 600 | 599 |
$select_greeting .= qq|</select>|; |
| 601 | 600 |
## /LINET |
| 602 | 601 |
|
Auch abrufbar als: Unified diff
Anscheinend mag Perl es nicht, wenn der Block zu map auf der naechsten Zeile beginnt.