diff options
| author | Jon Robertson <jonrober@stanford.edu> | 2010-01-28 00:07:16 -0800 |
|---|---|---|
| committer | Jon Robertson <jonrober@stanford.edu> | 2010-01-28 00:07:16 -0800 |
| commit | 04b875599b1d4559dbcd356726035416081c6b48 (patch) | |
| tree | e32acfc088730da673c27a8aad9688944fee538d /perl/Wallet | |
| parent | 8d4899825cf723ef6a975306f146a06388ed4547 (diff) | |
Improved and fixed tests related to Pod and KDC type
Added a fix to the Pod tests to change the order of the arguments in a
skip statement to the correct order. Also added tests for the
KEYTAB_KRBTYPE value in the keytab tests, and changed the Wallet::Kadmin
module to standardize the errors returned with no keytab set and add new
error for keytab set but not a valid value.
Diffstat (limited to 'perl/Wallet')
| -rw-r--r-- | perl/Wallet/Kadmin.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/perl/Wallet/Kadmin.pm b/perl/Wallet/Kadmin.pm index 95859a9..501bc37 100644 --- a/perl/Wallet/Kadmin.pm +++ b/perl/Wallet/Kadmin.pm @@ -32,7 +32,10 @@ $VERSION = '0.03'; sub new { my ($class) = @_; my ($kadmin); - if ($Wallet::Config::KEYTAB_KRBTYPE eq 'MIT') { + if (!defined $Wallet::Config::KEYTAB_KRBTYPE + || !$Wallet::Config::KEYTAB_KRBTYPE) { + die "keytab object implementation not configured\n"; + } elsif ($Wallet::Config::KEYTAB_KRBTYPE eq 'MIT') { require Wallet::Kadmin::MIT; $kadmin = Wallet::Kadmin::MIT->new (); } elsif ($Wallet::Config::KEYTAB_KRBTYPE eq 'Heimdal') { |