From f537a2be258f73a5d8b9a4102ef22f86848709b1 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
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')

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