summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-02-18 17:14:16 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-02-18 17:14:16 +0000
commitfd5ea310bd787bbe74247af44b7223e267f71221 (patch)
tree5a261aada8b4f235b00f8c4d073495f6bf7c5b3e /perl-install
parent8160db448ee854ec58da3e5484a10ead737eca07 (diff)
downloaddrakx-fd5ea310bd787bbe74247af44b7223e267f71221.tar
drakx-fd5ea310bd787bbe74247af44b7223e267f71221.tar.gz
drakx-fd5ea310bd787bbe74247af44b7223e267f71221.tar.bz2
drakx-fd5ea310bd787bbe74247af44b7223e267f71221.tar.xz
drakx-fd5ea310bd787bbe74247af44b7223e267f71221.zip
don't let upNetwork break /etc/protocols when the install is not done yet
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index be59128d9..89769e131 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -952,7 +952,7 @@ sub upNetwork {
#- do not destroy this file if prefix is '' or even '/' (could it happens ?).
if (length($o->{prefix}) > 1) {
- symlinkf("$o->{prefix}/etc/$_", "/etc/$_") foreach qw(resolv.conf protocols services);
+ -f "$o->{prefix}/etc/$_" && symlinkf("$o->{prefix}/etc/$_", "/etc/$_") foreach qw(resolv.conf protocols services);
}
member($o->{method}, qw(ftp http nfs)) and return 1;
$o->{modules_conf}->write;