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

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

(limited to 'importxml.pl')

diff --git a/importxml.pl b/importxml.pl
index f2ed77d5c..964d29a6f 100755
--- a/importxml.pl
+++ b/importxml.pl
@@ -135,11 +135,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