Revision 3fad8d05
Von Bernd Bleßmann vor etwa 2 Jahren hinzugefügt
| SL/Presenter/Tag.pm | ||
|---|---|---|
| 250 | 250 |
|
| 251 | 251 |
$collection = [] if defined($collection) && !ref($collection) && ($collection eq ''); |
| 252 | 252 |
|
| 253 |
my $surround_tag = delete(%attributes{surround_tag});
|
|
| 253 |
my $surround_tag = delete($attributes{surround_tag});
|
|
| 254 | 254 |
|
| 255 | 255 |
my $multi_level_select_tag = ""; |
| 256 | 256 |
my %level_keys = (); |
Auch abrufbar als: Unified diff
S:P:Tag: delete auf $hash{k}, nicht %hash{k}
Gibt sonst einen Fehler zumindest bei älteren Perl-Versionen.