From e2a03f59eb0073248eceb449a6a283b3a0bb10ed Mon Sep 17 00:00:00 2001
From: hylom <hylom@users.sourceforge.jp>
Date: Fri, 9 Nov 2018 19:21:12 +0900
Subject: [PATCH 1/1] Model::Cowrapper: add integrety check to
 use_transaction()

---
 src/newslash_web/lib/Newslash/Model/Cowrapper.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/newslash_web/lib/Newslash/Model/Cowrapper.pm b/src/newslash_web/lib/Newslash/Model/Cowrapper.pm
index 298f519d..bac2e113 100644
--- a/src/newslash_web/lib/Newslash/Model/Cowrapper.pm
+++ b/src/newslash_web/lib/Newslash/Model/Cowrapper.pm
@@ -179,6 +179,10 @@ sub use_transaction {
     my $self = shift;
     my $dbh = shift;
 
+    if ($self->transaction_mode) {
+        die "already transaction started";
+    }
+
     if ($dbh) {
         $self->{_transactions} = 2;
         $self->{_tr_dbh} = $dbh;
-- 
2.11.0