From 47680970fb76105a45ca889a3e98a9664af5eb7a Mon Sep 17 00:00:00 2001
From: Russ Allbery <rra@stanford.edu>
Date: Thu, 30 Aug 2012 14:09:26 -0700
Subject: Attempt kinit --no-afslog first in Perl test suite

Avoid tromping on the user's AFS credentials if using Heimdal
user space.
---
 perl/t/lib/Util.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl/t/lib')

diff --git a/perl/t/lib/Util.pm b/perl/t/lib/Util.pm
index 44a4d21..8bbefc4 100644
--- a/perl/t/lib/Util.pm
+++ b/perl/t/lib/Util.pm
@@ -74,6 +74,7 @@ sub db_setup {
 sub getcreds {
     my ($file, $principal) = @_;
     my @commands = (
+        "kinit --no-afslog -k -t $file $principal >/dev/null 2>&1 </dev/null",
         "kinit -k -t $file $principal >/dev/null 2>&1 </dev/null",
         "kinit -t $file $principal >/dev/null 2>&1 </dev/null",
         "kinit -T /bin/true -k -K $file $principal >/dev/null 2>&1 </dev/null",
-- 
cgit v1.2.3