summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-05-10 12:32:16 +0000
committerFrancois Pons <fpons@mandriva.com>2000-05-10 12:32:16 +0000
commit0a4418d285a80e2a93cf4dee375725ec2e9234ff (patch)
tree8db6a22cf3ebdba443264cb3f22d56bf058cf451 /perl-install
parent10ee88a49d4445a0ce048339ae9e0d6e298f0628 (diff)
downloaddrakx-0a4418d285a80e2a93cf4dee375725ec2e9234ff.tar
drakx-0a4418d285a80e2a93cf4dee375725ec2e9234ff.tar.gz
drakx-0a4418d285a80e2a93cf4dee375725ec2e9234ff.tar.bz2
drakx-0a4418d285a80e2a93cf4dee375725ec2e9234ff.tar.xz
drakx-0a4418d285a80e2a93cf4dee375725ec2e9234ff.zip
*** empty log message ***
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps.pm5
-rw-r--r--perl-install/install_steps_interactive.pm1
2 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index b2051657c..3168c8025 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -296,7 +296,8 @@ sub installPackages($$) { #- complete REWORK, TODO and TOCHECK!
$o->{toSave} = [];
#- hack for compat-glibc to upgrade properly :-(
- if (pkgs::packageFlagSelected(pkgs::packageByName($packages, 'compat-glibc'))) {
+ if (pkgs::packageFlagSelected(pkgs::packageByName($packages, 'compat-glibc')) &&
+ !pkgs::packageFlagInstalled(pkgs::packageByName($packages, 'compat-glibc'))) {
rename "$o->{prefix}/usr/i386-glibc20-linux", "$o->{prefix}/usr/i386-glibc20-linux.mdkgisave";
}
}
@@ -961,7 +962,7 @@ sub downNetwork {
} elsif ($o->{modem} && $o->{modem}{isUp}) {
run_program::rooted($o->{prefix}, "ifdown", "ppp0");
run_program::rooted($o->{prefix}, "/etc/rc.d/init.d/syslog", "stop");
- eval { modules::unload($_) foreach qw(ppp serial) };
+ eval { modules::unload($_) foreach qw(ppp_deflate bsd_comp ppp serial) };
$o->{modem}{isUp} = 0;
} else {
$::testing or return;
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 8da8c32b5..0ed7681a6 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -508,6 +508,7 @@ sub pppConfig {
my $m = $o->{modem} ||= {};
unless ($m->{device} || $::expert && !$o->ask_yesorno('', _("Try to find a modem?"), 1)) {
+ eval { modules::load("serial"); };
detect_devices::probeSerialDevices();
foreach (0..3) {
next if $o->{mouse}{device} =~ /ttyS$_/;