From 19bba6b33f207bc1b92ee8e2aba1c873bbe60c7c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 2 Oct 2000 11:23:52 +0000
Subject: no_comment

---
 perl-install/common.pm | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

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

diff --git a/perl-install/common.pm b/perl-install/common.pm
index d54eb9a2f..b3a6b05e5 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -429,11 +429,7 @@ sub getVarsFromSh($) {
 
 sub setVarsInSh {
     my ($file, $l, @fields) = @_;
-    @fields = keys %$l unless @fields;
-
-    local *F;
-    open F, "> $_[0]" or die "cannot create config file $file";
-    $l->{$_} and print F "$_=$l->{$_}\n" foreach @fields;
+    setVarsInShMode($file, 0777 ^ umask(), $l, @fields);
 }
 
 sub setVarsInShMode {
@@ -441,7 +437,7 @@ sub setVarsInShMode {
     @fields = keys %$l unless @fields;
 
     local *F;
-    open F, "> $_[0]" or die "cannot create config file $file";
+    open F, "> $file" or die "cannot create config file $file";
     chmod $mod, $file;
     $l->{$_} and print F "$_=$l->{$_}\n" foreach @fields;
 }
-- 
cgit v1.2.1