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

---
 move.pl | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

(limited to 'move.pl')

diff --git a/move.pl b/move.pl
index f38644358..b20ee528b 100755
--- a/move.pl
+++ b/move.pl
@@ -50,11 +50,7 @@ sub Log {
 sub Lock {
     if ($::lockcount <= 0) {
         $::lockcount = 0;
-        if (!open(LOCKFID, ">>data/maillock")) {
-            mkdir "data", 0777;
-            chmod 0777, "data";
-            open(LOCKFID, ">>data/maillock") || die "Can't open lockfile.";
-        }
+        open(LOCKFID, ">>data/maillock") || die "Can't open data/maillock: $!";
         my $val = flock(LOCKFID,2);
         if (!$val) { # '2' is magic 'exclusive lock' const.
             print "Content-type: text/html\n\n";
-- 
cgit v1.2.3-24-g4f1b