diff options
Diffstat (limited to 'perl/Wallet')
| -rw-r--r-- | perl/Wallet/Kadmin/Heimdal.pm | 5 | 
1 files changed, 3 insertions, 2 deletions
diff --git a/perl/Wallet/Kadmin/Heimdal.pm b/perl/Wallet/Kadmin/Heimdal.pm index b619ba6..893be65 100644 --- a/perl/Wallet/Kadmin/Heimdal.pm +++ b/perl/Wallet/Kadmin/Heimdal.pm @@ -57,12 +57,13 @@ sub kadmin_client {              and defined ($Wallet::Config::KEYTAB_REALM)) {          die "keytab object implementation not configured\n";      } -    my $server = $Wallet::Config::KEYTAB_HOST || 'localhost';      my @options = (RaiseError => 1, -                   Server     => $server,                     Principal  => $Wallet::Config::KEYTAB_PRINCIPAL,                     Realm      => $Wallet::Config::KEYTAB_REALM,                     Keytab     => $Wallet::Config::KEYTAB_FILE); +    if ($Wallet::Config::KEYTAB_HOST) { +        push (@options, Server => $Wallet::Config::KEYTAB_HOST); +    }      my $client = Heimdal::Kadm5::Client->new (@options);      return $client;  }  | 
