summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-06 22:04:20 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-06 22:04:20 +0000
commit3a598bd7c7b58aac70e31c3481c85264d2bcb2f8 (patch)
treee923b78c1a1ac19251ee5ba99db996bf38a91b79 /perl-install/install_steps_interactive.pm
parent173f1d689545127dfa129b28759867f326638bb3 (diff)
downloaddrakx-backup-do-not-use-3a598bd7c7b58aac70e31c3481c85264d2bcb2f8.tar
drakx-backup-do-not-use-3a598bd7c7b58aac70e31c3481c85264d2bcb2f8.tar.gz
drakx-backup-do-not-use-3a598bd7c7b58aac70e31c3481c85264d2bcb2f8.tar.bz2
drakx-backup-do-not-use-3a598bd7c7b58aac70e31c3481c85264d2bcb2f8.tar.xz
drakx-backup-do-not-use-3a598bd7c7b58aac70e31c3481c85264d2bcb2f8.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 8da801a2f..1cef55e77 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -142,7 +142,7 @@ sub configureNetwork($) {
$o->setup_thiskind('net', !$::expert, 1);
my @l = detect_devices::getNet() or die _("no network card found");
- my $last; foreach ($::expert ? @l : $l[0]) {
+ my $last; foreach ($::beginner ? $l[0] : @l) {
my $intf = network::findIntf($o->{intf} ||= [], $_);
add2hash($intf, $last);
add2hash($intf, { NETMASK => '255.255.255.0' });
@@ -479,7 +479,7 @@ lilo on your system, or another operating system removes lilo, or lilo doesn't
work with your hardware configuration. A custom bootdisk can also be used with
the Mandrake rescue image, making it much easier to recover from severe system
failures. Would you like to create a bootdisk for your system?"), !$o->{mkbootdisk}) or return;
- $o->{mkbootdisk} = $l[1] if !$o->{mkbootdisk} || $o->{mkbootdisk} eq "1";
+ $o->{mkbootdisk} = $l[0] if !$o->{mkbootdisk} || $o->{mkbootdisk} eq "1";
} else {
@l or die _("Sorry, no floppy drive available");