From 1aa3ce077e566920b86659b8d2f2bb88b922b83b Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Wed, 6 Apr 2016 18:22:42 +0200
Subject: [PATCH] SL::DB::Object: warnings

---
 SL/DB/Object.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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