Fix error handling for klist with Heimdal user space

The check for the enctypes of created keytabs tries klist for MIT
first and then Heimdal ktutil.  The klist options are invalid for
Heimdal.  Suppress the resulting complaining to standard error.

1 files changed, 8 insertions, 2 deletions

diff --git a/perl/t/keytab.t b/perl/t/keytab.t
index b16cea5..fabdc5b 100755
--- a/perl/t/keytab.t
+++ b/perl/t/keytab.t
@@ -103,8 +103,14 @@ sub enctypes {
     close KEYTAB;
 
     my @enctypes;
-    open (KLIST, '-|', 'klist', '-ke', 'keytab')
-        or die "cannot run klist: $!\n";
+    my $pid = open (KLIST, '-|');
+    if (not defined $pid) {
+        die "cannot fork: $!\n";
+    } elsif ($pid == 0) {
+        open (STDERR, '>', '/dev/null') or die "cannot reopen stderr: $!\n";
+        exec ('klist', '-ke', 'keytab')
+            or die "cannot run klist: $!\n";
+    }
     local $_;
     while (<KLIST>) {
         next unless /^ *\d+ /;