From 297a3b70ef8499cf80a5c0a4b17185039fd6a208 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Tue, 9 Aug 2016 11:07:33 +0200
Subject: [PATCH] meerge: IO: single-dbh return

---
 SL/IO.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/SL/IO.pm b/SL/IO.pm
index 7e638b5ee..c0d6987f3 100644
--- a/SL/IO.pm
+++ b/SL/IO.pm
@@ -70,6 +70,8 @@ SQL
       # Erstelldatum, wenn keine Modifikation erfolgt ist (bei Stornos z.B.).
       do_query($form, $dbh, qq|UPDATE $table SET datepaid = COALESCE(mtime::date, itime::date) WHERE id = ?|, $id);
     }
+
+    1;
   }) or do { die SL::DB->client->error };
 
   $main::lxdebug->leave_sub();
-- 
2.20.1