From b665d3c80aa66b6f440ead49ac606e0702ffefd9 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 14 Feb 2000 13:53:43 +0000
Subject: no_comment

---
 perl-install/c/stuff.xs.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'perl-install/c/stuff.xs.pm')

diff --git a/perl-install/c/stuff.xs.pm b/perl-install/c/stuff.xs.pm
index 69e7f2d78..fbdc8bf09 100644
--- a/perl-install/c/stuff.xs.pm
+++ b/perl-install/c/stuff.xs.pm
@@ -96,6 +96,18 @@ lseek_sector(fd, sector, offset)
   OUTPUT:
   RETVAL
 
+unsigned int
+total_sectors(fd)
+  int fd
+  CODE:
+  {
+    struct hd_driveid s;
+    ioctl(fd, HDIO_GET_IDENTITY, &s);
+    RETVAL = s.lba_capacity;
+  }
+  OUTPUT:
+  RETVAL
+
 void
 openlog(ident)
   char *ident
-- 
cgit v1.2.1