1 files changed, 15 insertions, 0 deletions
diff --git a/perl-install/c/stuff.xs.pm b/perl-install/c/stuff.xs.pm
index f6e63a85d..563c97013 100644
--- a/perl-install/c/stuff.xs.pm
+++ b/perl-install/c/stuff.xs.pm
@@ -26,6 +26,7 @@ print '
 #include <linux/kd.h>
 #include <linux/hdreg.h>
 #include <linux/vt.h>
+#include <linux/fd.h>
 #include <linux/cdrom.h>
 #include <linux/loop.h>
 #include <net/if.h>
@@ -236,6 +237,20 @@ isDvdDrive(fd)
   OUTPUT:
   RETVAL
 
+char *
+floppy_info(name)
+  char * name
+  CODE:
+  int fd = open(name, O_RDONLY | O_NONBLOCK);
+  RETVAL = NULL;
+  if (fd != -1) {
+     char drivtyp[17];
+     ioctl(fd, FDGETDRVTYP, (void *)drivtyp);
+     RETVAL = drivtyp;
+  }
+  OUTPUT:
+  RETVAL
+
 unsigned int
 total_sectors(fd)
   int fd