From ae8a18de80c43febc782c4f398e75fdf89281601 Mon Sep 17 00:00:00 2001
From: "bbaetz%student.usyd.edu.au" <>
Date: Sun, 7 Apr 2002 10:56:45 +0000
Subject: Bug 134575 - some scripts trying to make world writable directories
 r=justdave, gerv

---
 defparams.pl | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'defparams.pl')

diff --git a/defparams.pl b/defparams.pl
index eddf50942..d88938f3c 100644
--- a/defparams.pl
+++ b/defparams.pl
@@ -64,8 +64,6 @@ sub WriteParams {
             delete $::param{$item};
         }
     }
-    mkdir("data", 0777);
-    chmod 0777, "data";
     my $tmpname = "data/params.$$";
     open(FID, ">$tmpname") || die "Can't create $tmpname";
     my $v = $::param{'version'};
@@ -76,7 +74,7 @@ sub WriteParams {
     print FID "1;\n";
     close FID;
     rename $tmpname, "data/params" || die "Can't rename $tmpname to data/params";
-    chmod 0666, "data/params";
+    ChmodDataFile('data/params', 0666);
 }
     
 
-- 
cgit v1.2.3-24-g4f1b