diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-08-14 02:16:24 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-08-14 02:16:24 +0000 |
| commit | 8108ca972d666fdf063cd13f23c08fdb481327d0 (patch) | |
| tree | 32250513818ede34384739199105f371acb90d1c /perl-install/c/stuff.xs.pl | |
| parent | 8f4cdfe6f9ac1e825dfbb64c92ef37da4d26ab97 (diff) | |
| download | drakx-backup-do-not-use-8108ca972d666fdf063cd13f23c08fdb481327d0.tar drakx-backup-do-not-use-8108ca972d666fdf063cd13f23c08fdb481327d0.tar.gz drakx-backup-do-not-use-8108ca972d666fdf063cd13f23c08fdb481327d0.tar.bz2 drakx-backup-do-not-use-8108ca972d666fdf063cd13f23c08fdb481327d0.tar.xz drakx-backup-do-not-use-8108ca972d666fdf063cd13f23c08fdb481327d0.zip | |
in floppy_info(), check ioctl success and use FDPOLLDRVSTAT (copied from kudzu code)
Diffstat (limited to 'perl-install/c/stuff.xs.pl')
| -rw-r--r-- | perl-install/c/stuff.xs.pl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/c/stuff.xs.pl b/perl-install/c/stuff.xs.pl index 8111f2eba..497d60c19 100644 --- a/perl-install/c/stuff.xs.pl +++ b/perl-install/c/stuff.xs.pl @@ -289,8 +289,11 @@ floppy_info(name) RETVAL = NULL; if (fd != -1) { char drivtyp[17]; - ioctl(fd, FDGETDRVTYP, (void *)drivtyp); - RETVAL = drivtyp; + if (ioctl(fd, FDGETDRVTYP, (void *)drivtyp) == 0) { + struct floppy_drive_struct ds; + if (ioctl(fd, FDPOLLDRVSTAT, &ds) == 0 && ds.track >= 0) + RETVAL = drivtyp; + } close(fd); } OUTPUT: |