aboutsummaryrefslogtreecommitdiff
path: root/perl/Wallet/Admin.pm
diff options
context:
space:
mode:
authorRuss Allbery <rra@stanford.edu>2013-02-13 18:24:56 -0800
committerRuss Allbery <rra@stanford.edu>2013-02-13 18:28:25 -0800
commitb750e56ea3f93fbc09917cacfc6b2737ef9671a7 (patch)
treef19cb293db809850bad909002602143ea68b1e71 /perl/Wallet/Admin.pm
parenta03d2f7fedc1088bce90e2b921ae2aeae06fddd0 (diff)
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>
Diffstat (limited to 'perl/Wallet/Admin.pm')
-rw-r--r--perl/Wallet/Admin.pm1
1 files changed, 1 insertions, 0 deletions
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 ($@) {