From 7039b28e9cc76fd602016a10c0927b40fc960b58 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Tue, 25 Apr 2000 18:32:02 +0000 Subject: *** empty log message *** --- perl-install/install2.pm | 5 ++--- perl-install/install_steps_interactive.pm | 2 +- 2 files changed, 3 insertions(+), 4 deletions(-) (limited to 'perl-install') 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'); -- cgit v1.2.1