From 9519d51eb29b0a5881bc859e1c2b9b3b3a8abfa6 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 2 Dec 2002 20:41:44 +0000
Subject: use output_with_perm()

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

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

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 0892b39ab..a9a613f0a 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -634,8 +634,7 @@ sub configureNetwork {
 	$o->{netcnx}{type} = 'lan';
 	foreach ("up", "down") {
 	    my $f = "$o->{prefix}/etc/sysconfig/network-scripts/net_cnx_$_";
-	    output $f, "\nif$_ eth0\n";
-	    chmod 0755, $f;
+	    output_with_perm($f, 0755, "\nif$_ eth0\n");
 	}
 	output "$o->{prefix}/etc/sysconfig/network-scripts/net_cnx_pg", "\n/usr/sbin/drakconnet\n";
     }
-- 
cgit v1.2.1