From 24cdd14d5aeff477c2aa8ec0a326bf2c7c4f9d50 Mon Sep 17 00:00:00 2001
From: Pascal Terjan <pterjan@mageia.org>
Date: Sun, 24 Apr 2011 19:21:42 +0000
Subject: Fix fd leak

---
 perl-install/c/stuff.xs.pl | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/c')

diff --git a/perl-install/c/stuff.xs.pl b/perl-install/c/stuff.xs.pl
index b2c4c2512..46bff27fb 100755
--- a/perl-install/c/stuff.xs.pl
+++ b/perl-install/c/stuff.xs.pl
@@ -512,6 +512,7 @@ EVIocGBitKey (char *file)
 			return;
 		}
 
+		close (fd);
         	for (i = NBITS(KEY_MAX) - 1; i > 0; i--)
 			if (bitmask[i])
 				break;
-- 
cgit v1.2.1