From 183528ef44416c434c2da66ea236a6f2fa1d8b80 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 26 Feb 2002 20:09:25 +0000
Subject: - zips() now return devices ending with "4", raw_zips() is the old
 zips() - rdvd handling - add .conf for /etc/devfs/conf.d/ files

---
 perl-install/detect_devices.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 3dc9bdd39..6b172f8da 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -38,9 +38,10 @@ sub hds         { grep { $_->{media_type} eq 'hd' && ($::isStandalone || !isRemo
 sub cdroms      { grep { $_->{media_type} eq 'cdrom' } get() }
 sub burners     { grep { isBurner($_) } cdroms() }
 sub dvdroms     { grep { isDvdDrive($_) } cdroms() }
-sub zips        { grep { member($_->{media_type}, 'fd', 'hd') && isZipDrive($_) } get() }
+sub raw_zips    { grep { member($_->{media_type}, 'fd', 'hd') && isZipDrive($_) } get() }
 #-sub jazzs     { grep { member($_->{media_type}, 'fd', 'hd') && isJazDrive($_) } get() }
 sub ls120s      { grep { member($_->{media_type}, 'fd', 'hd') && isLS120Drive($_) } get() }
+sub zips        { map { $_->{device} .= 4; $_ } raw_zips() }
 
 sub cdroms__faking_ide_scsi {
     my @l = cdroms();
@@ -57,7 +58,7 @@ sub cdroms__faking_ide_scsi {
     @l;
 }
 sub zips__faking_ide_scsi {
-    my @l = zips();
+    my @l = raw_zips();
     return @l if $::isStandalone;
     if (my @l_ide = grep { $_->{interface_type} eq 'ide' } @l) {
 	require modules;
@@ -68,7 +69,7 @@ sub zips__faking_ide_scsi {
 	    $e->{device} = "sd" . chr(ord('a') + $nb++);
 	}
     }
-    @l;
+    map { $_->{device} .= 4; $_ } @l;
 }
 
 sub floppies() {
-- 
cgit v1.2.1