X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/da6a187ab3fc3cbb97e094559dc964a9809f347b..c65e8fcc568f54001e277a8d7d8d2bd21cf80f4d:/SL/DB/Object.pm

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);