diff options
| author | Pascal Terjan <pterjan@mageia.org> | 2011-04-24 19:21:42 +0000 |
|---|---|---|
| committer | Pascal Terjan <pterjan@mageia.org> | 2011-04-24 19:21:42 +0000 |
| commit | 45310c58ac44f43743ec680c87fe24ea7311a7ec (patch) | |
| tree | ba6935cf611732d5382ad6f4e3226fd48ae749e7 /perl-install/c | |
| parent | efedd69e3d3a801e7a7efa1a595666d27bf8bbb5 (diff) | |
| download | drakx-backup-do-not-use-45310c58ac44f43743ec680c87fe24ea7311a7ec.tar drakx-backup-do-not-use-45310c58ac44f43743ec680c87fe24ea7311a7ec.tar.gz drakx-backup-do-not-use-45310c58ac44f43743ec680c87fe24ea7311a7ec.tar.bz2 drakx-backup-do-not-use-45310c58ac44f43743ec680c87fe24ea7311a7ec.tar.xz drakx-backup-do-not-use-45310c58ac44f43743ec680c87fe24ea7311a7ec.zip | |
Fix fd leak
Diffstat (limited to 'perl-install/c')
| -rwxr-xr-x | perl-install/c/stuff.xs.pl | 1 |
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; |