From 6bd2cd0824130bd25918e2b709d0991003d5d392 Mon Sep 17 00:00:00 2001
From: Russ Allbery <rra@stanford.edu>
Date: Sat, 1 Dec 2007 03:00:41 +0000
Subject: If we're using MySQL, force all the tables to InnoDB so that we get
 transactions.

---
 perl/Wallet/Schema.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/perl/Wallet/Schema.pm b/perl/Wallet/Schema.pm
index e39cc81..5068d03 100644
--- a/perl/Wallet/Schema.pm
+++ b/perl/Wallet/Schema.pm
@@ -77,6 +77,8 @@ sub create {
             if ($driver eq 'SQLite') {
                 $sql =~ s{auto_increment primary key}
                          {primary key autoincrement};
+            } elsif ($driver eq 'mysql' and $sql =~ /^\s*create\s+table\s/) {
+                $sql =~ s/;$/ engine=InnoDB;/;
             }
             $dbh->do ($sql, { RaiseError => 1, PrintError => 0 });
         }
-- 
cgit v1.2.3