From b750e56ea3f93fbc09917cacfc6b2737ef9671a7 Mon Sep 17 00:00:00 2001
From: Russ Allbery <rra@stanford.edu>
Date: Wed, 13 Feb 2013 18:24:56 -0800
Subject: Set upgrade directory in Wallet::Admin

In the upgrade() wrapper in Wallet::Admin, set the DDL directory
in the schema before attempting an upgrade.

Change-Id: I691184fc4cf416e68f300bc78f7caffc41bf94b8
Reviewed-on: https://gerrit.stanford.edu/793
Reviewed-by: Russ Allbery <rra@stanford.edu>
Tested-by: Russ Allbery <rra@stanford.edu>
---
 perl/Wallet/Admin.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl/Wallet')

diff --git a/perl/Wallet/Admin.pm b/perl/Wallet/Admin.pm
index 9fc146c..fd184a0 100644
--- a/perl/Wallet/Admin.pm
+++ b/perl/Wallet/Admin.pm
@@ -195,6 +195,7 @@ sub upgrade {
 
     # Perform the actual upgrade.
     if ($self->{schema}->get_db_version) {
+        $self->{schema}->upgrade_directory ($Wallet::Config::DB_DDL_DIRECTORY);
         eval { $self->{schema}->upgrade; };
     }
     if ($@) {
-- 
cgit v1.2.3