Revision 0bd2b138
Von Bernd Bleßmann vor mehr als 3 Jahren hinzugefügt
| SL/Presenter/MaterialComponents.pm | ||
|---|---|---|
| 212 | 212 |
|
| 213 | 213 |
_set_id_attribute(\%attributes, $attributes{name});
|
| 214 | 214 |
|
| 215 |
my $class = delete %attributes{class};
|
|
| 215 |
my $class = delete $attributes{class};
|
|
| 216 | 216 |
my $icon = $attributes{icon}
|
| 217 | 217 |
? icon(delete $attributes{icon}, class => 'prefix')
|
| 218 | 218 |
: ''; |
Auch abrufbar als: Unified diff
S:P:MaterialComponents: delete auf $hash{k}, nicht %hash{k}
Gibt sonst einen Fehler zumindest bei älteren Perl-Versionen.