From 9ad846cd08f909f760f80bf703b8d4dbe1809c7b Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Mon, 11 Oct 1999 17:04:31 +0000
Subject: *** empty log message ***

---
 perl-install/detect_devices.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'perl-install/detect_devices.pm')

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 35a85dfc5..994fd30fb 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -35,13 +35,19 @@ sub get {
     [ \&hasDAC960, \&getDAC960 ],
     [ \&hasCompaqSmartArray, \&getCompaqSmartArray ];
 }
-sub hds() { grep { $_->{type} eq 'hd' } get(); }
+sub hds() { grep { $_->{type} eq 'hd' && !isRemovableDrive($_) } get(); }
+sub zips() { grep { $_->{type} eq 'hd' && isZipDrive($_) } get(); }
+#-sub jazzs() { grep { $_->{type} eq 'hd' && isJazDrive($_) } get(); }
 sub cdroms() { grep { $_->{type} eq 'cdrom' } get(); }
 sub floppies() {
     (grep { tryOpen($_) } qw(fd0 fd1)),
     (grep { $_->{type} eq 'fd' } get());
 }
 
+sub isZipDrive() { $_[0]->{info} =~ /ZIP\s+\d+/ } #- accept ZIP 100, untested for bigger ZIP drive.
+#-sub isJazzDrive() { $_[0]->{info} =~ /JAZZ?\s+/ } #- untested.
+sub isRemovableDrive() { &isZipDrive } #-or &isJazzDrive }
+
 sub hasSCSI() {
     defined $scsiDeviceAvailable and return $scsiDeviceAvailable;
     local *F;
-- 
cgit v1.2.1