summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRuss Allbery <rra@stanford.edu>2013-03-27 16:14:40 -0700
committerRuss Allbery <rra@stanford.edu>2013-03-27 16:25:02 -0700
commit0a6b556943dbe970e0cf764b030718f3a1361816 (patch)
treef9071aebbd3a3308fad95770a86283daa41351c3
parent3a6d69ab78981b53aa5c20f99e2ee370268a40ff (diff)
Register the wa-keyring object handler by default
In Wallet::Admin, add the wa-keyring object handler to the list of initializations when creating a new database. Change-Id: I804b47ae712ce3d96c57699fb2ba05c45f687881 Reviewed-on: https://gerrit.stanford.edu/986 Reviewed-by: Russ Allbery <rra@stanford.edu> Tested-by: Russ Allbery <rra@stanford.edu>
-rw-r--r--perl/Wallet/Admin.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl/Wallet/Admin.pm b/perl/Wallet/Admin.pm
index 97a2c15..42476e9 100644
--- a/perl/Wallet/Admin.pm
+++ b/perl/Wallet/Admin.pm
@@ -125,8 +125,9 @@ sub default_data {
# types default rows.
my @record = ([ qw/ty_name ty_class/ ],
- [ 'file', 'Wallet::Object::File' ],
- [ 'keytab', 'Wallet::Object::Keytab' ]);
+ [ 'file', 'Wallet::Object::File' ],
+ [ 'keytab', 'Wallet::Object::Keytab' ],
+ [ 'wa-keyring', 'Wallet::Object::WAKeyring' ]);
($r1) = $self->{schema}->resultset('Type')->populate (\@record);
warn "default Type not installed" unless defined $r1;