From 9c71ca16235d77bc83fced6becbd22e5c02aac04 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Thu, 7 Mar 2002 10:24:14 +0000
Subject: avoid destroying some files in /etc.

---
 perl-install/install_steps.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install')

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)) {
-- 
cgit v1.2.1