From e97e40d422337b0b1b0006dfb1ff1c44f0b9718a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 2 Mar 2002 12:22:12 +0000
Subject: fix ide zip name when there are already some other SCSI drives

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

(limited to 'perl-install')

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index e14e2f324..82cf132bb 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -63,10 +63,11 @@ sub zips__faking_ide_scsi {
     if (my @l_ide = grep { $_->{interface_type} eq 'ide' } @l) {
 	require modules;
 	modules::add_alias('scsi_hostadapter', 'ide-scsi');
-	my $nb = 1 + max(-1, map { if_($_->{device} =~ /sd(\s+)/, ord($1) - ord('a')) } getSCSI());
+	my $nb = 1 + max(-1, map { if_($_->{device} =~ /sd(\w+)/, ord($1) - ord('a')) } getSCSI());
 	foreach my $e (@l_ide) {	    
-	    log::l("IDE Zip: $e->{device}");
-	    $e->{device} = "sd" . chr(ord('a') + $nb++);
+	    my $faked = "sd" . chr(ord('a') + $nb++);
+	    log::l("IDE Zip: $e->{device} => $faked");
+	    $e->{device} = $faked;
 	}
     }
     map { $_->{device} .= 4; $_ } @l;
-- 
cgit v1.2.1