From 55fffc9edba2e5af12c0d3aa71e039efd9778c61 Mon Sep 17 00:00:00 2001 From: Russ Allbery Date: Fri, 8 Feb 2008 19:28:18 +0000 Subject: Avoid uninitialized values if klist isn't installed. --- perl/t/verifier-netdb.t | 4 ++-- 1 file 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'; -- cgit v1.2.3