diff options
| author | Russ Allbery <rra@stanford.edu> | 2013-03-27 16:28:26 -0700 |
|---|---|---|
| committer | Russ Allbery <rra@stanford.edu> | 2013-03-27 16:28:26 -0700 |
| commit | 7dc9e65f7ca2f1181e62f339b0d2ed7ca4978ee5 (patch) | |
| tree | c7232d6cd41d42795880c843b39d45d743b8a276 /perl/Wallet/Admin.pm | |
| parent | 6871bae8e26beadaff5035de56b4f70a78961dc9 (diff) | |
| parent | 0a6b556943dbe970e0cf764b030718f3a1361816 (diff) | |
Imported Upstream version 1.0
Diffstat (limited to 'perl/Wallet/Admin.pm')
| -rw-r--r-- | perl/Wallet/Admin.pm | 5 |
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; |