summaryrefslogtreecommitdiff
path: root/perl
diff options
context:
space:
mode:
authorRuss Allbery <eagle@eyrie.org>2014-07-15 16:44:44 -0700
committerRuss Allbery <rra@stanford.edu>2014-07-15 21:09:49 -0700
commit6ad57756fdccc7fd3bf8a6fe88a13de52d5bfafa (patch)
tree08239b02ae25db7f337c1a1710957ded4e6ef8ff /perl
parent565bcc173119cdc2c0d76f3f75ea34be0d452444 (diff)
Also drop the new duo table when destroying the database
In Wallet::Admin, add duo to the list of tables to drop when either destroying or reinitializing the database. Change-Id: I78790927f7d53b8d596e6ccb7c2340a341e404ae Reviewed-on: https://gerrit.stanford.edu/1549 Reviewed-by: Russ Allbery <rra@stanford.edu> Tested-by: Russ Allbery <rra@stanford.edu>
Diffstat (limited to 'perl')
-rw-r--r--perl/lib/Wallet/Admin.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl/lib/Wallet/Admin.pm b/perl/lib/Wallet/Admin.pm
index d39c272..29b2f21 100644
--- a/perl/lib/Wallet/Admin.pm
+++ b/perl/lib/Wallet/Admin.pm
@@ -161,7 +161,7 @@ sub destroy {
# Get an actual DBI handle and use it to delete all tables.
my $dbh = $self->dbh;
- my @tables = qw/acls acl_entries acl_history acl_schemes enctypes
+ my @tables = qw/acls acl_entries acl_history acl_schemes duo enctypes
flags keytab_enctypes keytab_sync objects object_history
sync_targets types dbix_class_schema_versions/;
for my $table (@tables) {