From f537a2be258f73a5d8b9a4102ef22f86848709b1 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Tue, 4 Dec 2001 18:14:48 +0000 Subject: floppy_info: add missing close(fd) --- perl-install/c/stuff.xs.pm | 1 + 1 file changed, 1 insertion(+) (limited to 'perl-install/c') diff --git a/perl-install/c/stuff.xs.pm b/perl-install/c/stuff.xs.pm index d0789c951..6db1a9039 100644 --- a/perl-install/c/stuff.xs.pm +++ b/perl-install/c/stuff.xs.pm @@ -265,6 +265,7 @@ floppy_info(name) char drivtyp[17]; ioctl(fd, FDGETDRVTYP, (void *)drivtyp); RETVAL = drivtyp; + close(fd); } OUTPUT: RETVAL -- cgit v1.2.1