diff options
| -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; |