From: Sven Schöling <s.schoeling@linet-services.de>
Date: Wed, 6 Apr 2016 16:22:42 +0000 (+0200)
Subject: SL::DB::Object: warnings
X-Git-Tag: release-3.4.1~234
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=1aa3ce077e566920b86659b8d2f2bb88b922b83b;p=kivitendo-erp.git

SL::DB::Object: warnings
---

diff --git a/SL/DB/Object.pm b/SL/DB/Object.pm
index 4ecaab2ed..fa474643a 100755
--- a/SL/DB/Object.pm
+++ b/SL/DB/Object.pm
@@ -232,7 +232,7 @@ sub clone_and_reset {
   my @mutators            = $meta->column_mutator_method_names;
   my @column_names        =
     grep     { $_->[0] && $_->[1] && !$_skip_fields_when_cloning{ $_->[0] } }
-    pairwise { [ $a, $b] } @accessors, @mutators;
+    pairwise { no warnings qw(once); [ $a, $b] } @accessors, @mutators;
 
   my $clone = $class->new(map { my $method = $_->[0]; ($_->[1] => $self->$method) } @column_names);