diff options
| author | Russ Allbery <rra@stanford.edu> | 2010-02-08 15:47:04 -0800 |
|---|---|---|
| committer | Russ Allbery <rra@stanford.edu> | 2010-02-08 15:47:04 -0800 |
| commit | 346660359be7666e8629c14b2d12cebf794f6f26 (patch) | |
| tree | 9d05f0b347d82be4ac42af9a4e8edfe33025ec95 /perl/Wallet/Kadmin.pm | |
| parent | 04b875599b1d4559dbcd356726035416081c6b48 (diff) | |
Coding style and whitespace fixes
Combine a long series of eval blocks into a single block and a single
error check. Remove trailing whitespace, and in some cases remove
trailing () on method calls where the parens aren't useful.
Diffstat (limited to 'perl/Wallet/Kadmin.pm')
| -rw-r--r-- | perl/Wallet/Kadmin.pm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/perl/Wallet/Kadmin.pm b/perl/Wallet/Kadmin.pm index 501bc37..b3a630e 100644 --- a/perl/Wallet/Kadmin.pm +++ b/perl/Wallet/Kadmin.pm @@ -32,15 +32,14 @@ $VERSION = '0.03'; sub new { my ($class) = @_; my ($kadmin); - if (!defined $Wallet::Config::KEYTAB_KRBTYPE - || !$Wallet::Config::KEYTAB_KRBTYPE) { + if (not $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 (); + $kadmin = Wallet::Kadmin::MIT->new; } elsif ($Wallet::Config::KEYTAB_KRBTYPE eq 'Heimdal') { require Wallet::Kadmin::Heimdal; - $kadmin = Wallet::Kadmin::Heimdal->new (); + $kadmin = Wallet::Kadmin::Heimdal->new; } else { die "keytab krb server type not set to a valid value\n"; } |