summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-03-07 10:24:14 +0000
committerFrancois Pons <fpons@mandriva.com>2002-03-07 10:24:14 +0000
commit9c71ca16235d77bc83fced6becbd22e5c02aac04 (patch)
tree4286f312c47c80fe210061830d21bd63dc2a372b /perl-install
parent920f7d3d0ed4129054a1bf563029cb8e095ec165 (diff)
downloaddrakx-backup-do-not-use-9c71ca16235d77bc83fced6becbd22e5c02aac04.tar
drakx-backup-do-not-use-9c71ca16235d77bc83fced6becbd22e5c02aac04.tar.gz
drakx-backup-do-not-use-9c71ca16235d77bc83fced6becbd22e5c02aac04.tar.bz2
drakx-backup-do-not-use-9c71ca16235d77bc83fced6becbd22e5c02aac04.tar.xz
drakx-backup-do-not-use-9c71ca16235d77bc83fced6becbd22e5c02aac04.zip
avoid destroying some files in /etc.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps.pm5
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)) {