Array-Kopie anstatt Alias

Verhindert präventiv den Nebeneffekt, falls jmd. direkt das
Objekt nach Übergabe noch manipuliert.

diff --git a/SL/DATEV.pm b/SL/DATEV.pm
index 0d6915f..9418c48 100644 (file)
--- a/SL/DATEV.pm
+++ b/SL/DATEV.pm
@@ -219,7 +219,7 @@ sub warnings {
   my $self = shift;
 
   if (@_) {
-    $self->{warnings} = \@_;
+    $self->{warnings} = [@_];
   } else {
    return $self->{warnings};
   }