Revision 84345dad
Von Jan Büren vor mehr als 7 Jahren hinzugefügt
| SL/DATEV.pm | ||
|---|---|---|
| 219 | 219 |
my $self = shift; |
| 220 | 220 |
|
| 221 | 221 |
if (@_) {
|
| 222 |
$self->{warnings} = \@_;
|
|
| 222 |
$self->{warnings} = [@_];
|
|
| 223 | 223 |
} else {
|
| 224 | 224 |
return $self->{warnings};
|
| 225 | 225 |
} |
Auch abrufbar als: Unified diff
Array-Kopie anstatt Alias
Verhindert präventiv den Nebeneffekt, falls jmd. direkt das
Objekt nach Übergabe noch manipuliert.