diff options
| -rwxr-xr-x | perl/t/verifier-netdb.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl/t/verifier-netdb.t b/perl/t/verifier-netdb.t index 0dafbdc..6a77e3c 100755 --- a/perl/t/verifier-netdb.t +++ b/perl/t/verifier-netdb.t @@ -24,10 +24,10 @@ my $host = 'windlord.stanford.edu'; my $user = 'rra@stanford.edu'; # Determine the local principal. -my $klist = `klist 2>&1`; +my $klist = `klist 2>&1` || ''; SKIP: { skip "tests useful only with Stanford Kerberos tickets", 4 - unless $klist =~ /^Default principal: \S+\@stanford\.edu$/m; + unless ($klist =~ /^Default principal: \S+\@stanford\.edu$/m); # Set up our configuration. $Wallet::Config::NETDB_REALM = 'stanford.edu'; |