Revision 181ce4f5
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/Menu.pm | ||
|---|---|---|
| 215 | 215 |
my $excl = (); |
| 216 | 216 |
|
| 217 | 217 |
# remove --AR, --AP from array |
| 218 |
grep { ($a, $b) = split /--/; s/--$a$//; } @a;
|
|
| 218 |
grep { ($a, $b) = split(/--/); s/--$a$//; } @a;
|
|
| 219 | 219 |
|
| 220 | 220 |
map { $excl{$_} = 1 } @a;
|
| 221 | 221 |
|
Auch abrufbar als: Unified diff
Kosmetik: Klammern um Funktionsaufrufe.