From 3d521b78ecb475dcc2e3ebac0abca061f350ce3b Mon Sep 17 00:00:00 2001
From: Russ Allbery <rra@stanford.edu>
Date: Tue, 28 Aug 2007 23:43:11 +0000
Subject: Unlink the temporary keytab file after we've gotten the data out of
 it.

---
 perl/Wallet/Object/Keytab.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/perl/Wallet/Object/Keytab.pm b/perl/Wallet/Object/Keytab.pm
index b386fae..e4cb00c 100644
--- a/perl/Wallet/Object/Keytab.pm
+++ b/perl/Wallet/Object/Keytab.pm
@@ -178,6 +178,7 @@ sub get {
         return undef;
     }
     close KEYTAB;
+    unlink $file;
     $self->log_action ('get', $user, $host, $time);
     return $data;
 }
-- 
cgit v1.2.3