From 4271fb73203556213af37d004fd8bc0206a6ab0e Mon Sep 17 00:00:00 2001 From: Russ Allbery Date: Thu, 7 Feb 2008 22:44:21 +0000 Subject: The current version of Net::Remctl can't handle explicit undef or the empty string as a principal argument. Be careful not to provide a principal argument if no principal was set. This workaround can be removed once we depend on a later version of Net::Remctl. --- perl/Wallet/Object/Keytab.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl/Wallet/Object') diff --git a/perl/Wallet/Object/Keytab.pm b/perl/Wallet/Object/Keytab.pm index e2c21a4..34fa12d 100644 --- a/perl/Wallet/Object/Keytab.pm +++ b/perl/Wallet/Object/Keytab.pm @@ -511,8 +511,8 @@ sub keytab_retrieve { $keytab .= '@' . $Wallet::Config::KEYTAB_REALM; } local $ENV{KRB5CCNAME} = $Wallet::Config::KEYTAB_REMCTL_CACHE; - my $port = $Wallet::Config::KEYTAB_REMCTL_PORT; - my $principal = $Wallet::Config::KEYTAB_REMCTL_PRINCIPAL; + my $port = $Wallet::Config::KEYTAB_REMCTL_PORT || 0; + my $principal = $Wallet::Config::KEYTAB_REMCTL_PRINCIPAL || ''; my @command = ('keytab', 'retrieve', $keytab); my $result = Net::Remctl::remctl ($host, $port, $principal, @command); if ($result->error) { -- cgit v1.2.3