diff options
| author | bbaetz%student.usyd.edu.au <> | 2002-04-07 12:56:45 +0200 |
|---|---|---|
| committer | bbaetz%student.usyd.edu.au <> | 2002-04-07 12:56:45 +0200 |
| commit | ae8a18de80c43febc782c4f398e75fdf89281601 (patch) | |
| tree | 385198c02a27e1befa5e65f262ca8ca7b7f2edba /importxml.pl | |
| parent | 09c6150e957783a972ea0123b4c31181f68c7410 (diff) | |
| download | bugzilla-ae8a18de80c43febc782c4f398e75fdf89281601.tar.gz bugzilla-ae8a18de80c43febc782c4f398e75fdf89281601.tar.xz | |
Bug 134575 - some scripts trying to make world writable directories
r=justdave, gerv
Diffstat (limited to 'importxml.pl')
| -rwxr-xr-x | importxml.pl | 6 |
1 files changed, 1 insertions, 5 deletions
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"; |