From 84345dad925d4577c9b91aaf2ce7fbd33bcf262c Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20B=C3=BCren?= Date: Mon, 25 Sep 2017 17:01:11 +0200 Subject: [PATCH] Array-Kopie anstatt Alias MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Verhindert präventiv den Nebeneffekt, falls jmd. direkt das Objekt nach Übergabe noch manipuliert. --- SL/DATEV.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/SL/DATEV.pm b/SL/DATEV.pm index 0d6915f40..9418c4839 100644 --- 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}; } -- 2.20.1