From fd5ea310bd787bbe74247af44b7223e267f71221 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 18 Feb 2005 17:14:16 +0000
Subject: don't let upNetwork break /etc/protocols when the install is not done
 yet

---
 perl-install/install_steps.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/install_steps.pm')

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