From 183528ef44416c434c2da66ea236a6f2fa1d8b80 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux 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/install_steps.pm | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'perl-install/install_steps.pm') diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 9156f49e2..f0973f5e6 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -414,10 +414,7 @@ Consoles 1,3,4,7 may also contain interesting information"; #- for mandrake_firstime touch "$o->{prefix}/var/lock/TMP_1ST"; - #- create /dev/dvd symlink - each_index { - any::devfssymlinkf($_->{device}, 'dvd' . ($::i ? $::i + 1 : ''), $o->{prefix}); - } grep { detect_devices::isDvdDrive($_) } detect_devices::cdroms__faking_ide_scsi(); + any::config_dvd($o->{prefix}); any::writeandclean_ldsoconf($o->{prefix}); @@ -782,7 +779,7 @@ sub setupBootloaderBefore { my ($o) = @_; require bootloader; - if (my @l = (grep { $_->{interface_type} eq 'ide' } detect_devices::burners(), detect_devices::zips())) { + if (my @l = (grep { $_->{interface_type} eq 'ide' } detect_devices::burners(), detect_devices::raw_zips())) { bootloader::add_append($o->{bootloader}, $_->{device}, 'ide-scsi') foreach @l; } if ($o->{miscellaneous}{HDPARM}) { -- cgit v1.2.1