summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install2.pm5
-rw-r--r--perl-install/install_steps_interactive.pm2
2 files changed, 3 insertions, 4 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 8073a340a..ca4d18cd3 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -561,9 +561,8 @@ sub main {
}
unless ($::testing) {
- unlink $_ foreach (
- "/sbin/insmod", "/sbin/rmmod", "/sbin/install",
- "/modules/modules.cgz",
+ unlink $_ foreach ( $o->{pcmcia} ? () : ("/sbin/install", "/modules/modules.cgz"),
+ "/sbin/insmod", "/sbin/rmmod",
"/modules/pcmcia_core.o", #- always use module from archive.
"/modules/i82365.o",
"/modules/tcic.o",
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index c79b8aed6..56e7774f9 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -497,7 +497,7 @@ sub pppConfig {
$m->{device} ||= $o->set_help('selectSerialPort') &&
mouse::serial_ports_names2dev(
$o->ask_from_list('', _("Please choose which serial port your modem is connected to."),
- [ grep { my $avoidDevice = mouse::serial_ports_name2dev($_);
+ [ grep { my $avoidDevice = mouse::serial_ports_names2dev($_);
$o->{mouse}{device} !~ /$avoidDevice/ } mouse::serial_ports_names ]));
$o->set_help('configureNetworkISP');