diff options
| -rw-r--r-- | perl-install/install_steps.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 65e16215f..207331e89 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -997,7 +997,10 @@ sub hasNetwork { sub upNetwork { my ($o, $pppAvoided) = @_; - symlinkf("$o->{prefix}/etc/$_", "/etc/$_") foreach (qw(resolv.conf protocols services)); + #- 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)); + } modules::write_conf($o->{prefix}); if (hasNetwork($o)) { |