diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2005-02-18 17:14:16 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2005-02-18 17:14:16 +0000 |
commit | fd5ea310bd787bbe74247af44b7223e267f71221 (patch) | |
tree | 5a261aada8b4f235b00f8c4d073495f6bf7c5b3e /perl-install/install_steps.pm | |
parent | 8160db448ee854ec58da3e5484a10ead737eca07 (diff) | |
download | drakx-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/install_steps.pm')
-rw-r--r-- | perl-install/install_steps.pm | 2 |
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; |