summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Terjan <pterjan@mageia.org>2011-04-24 19:21:42 +0000
committerPascal Terjan <pterjan@mageia.org>2011-04-24 19:21:42 +0000
commit24cdd14d5aeff477c2aa8ec0a326bf2c7c4f9d50 (patch)
treeba6935cf611732d5382ad6f4e3226fd48ae749e7 /perl-install
parent10cdce9920ae5cf7a0e8df9231dd874a5de2dfc8 (diff)
downloaddrakx-24cdd14d5aeff477c2aa8ec0a326bf2c7c4f9d50.tar
drakx-24cdd14d5aeff477c2aa8ec0a326bf2c7c4f9d50.tar.gz
drakx-24cdd14d5aeff477c2aa8ec0a326bf2c7c4f9d50.tar.bz2
drakx-24cdd14d5aeff477c2aa8ec0a326bf2c7c4f9d50.tar.xz
drakx-24cdd14d5aeff477c2aa8ec0a326bf2c7c4f9d50.zip
Fix fd leak
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/c/stuff.xs.pl1
1 files changed, 1 insertions, 0 deletions
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;