From 241ac866dc8d3d872aa7848eb0d56eb57cf82233 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Thu, 7 Sep 2000 16:43:32 +0000
Subject: updated

---
 perl-install/network.pm | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

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

diff --git a/perl-install/network.pm b/perl-install/network.pm
index 51d094e46..c9eaaf9ba 100644
--- a/perl-install/network.pm
+++ b/perl-install/network.pm
@@ -84,13 +84,14 @@ sub write_resolv_conf {
 	log::l("neither domain name nor dns server are configured");
 	return 0;
     }
-    my @l = cat_($file);
 
-    local *F;
-    open F, "> $file" or die "cannot write $file: $!";
-    print F "search $netc->{DOMAINNAME}\n" if $netc->{DOMAINNAME};
-    print F "nameserver $_\n" foreach dnsServers($netc);
-    print F "#$_" foreach @l;
+    substInFile {
+	s/^([^#].*\n)/\#$1/;
+	if (eof) {
+	    $_ .= "search $netc->{DOMAINNAME}\n" if $netc->{DOMAINNAME};
+	    $_ .= "nameserver $_\n" foreach dnsServers($netc);
+	}
+    } $file;
 
     #-res_init();		# reinit the resolver so DNS changes take affect
     1;
-- 
cgit v1.2.1