diff options
| author |   bbaetz%student.usyd.edu.au <> | 2002-04-07 10:56:45 +0000 |
|---|---|---|
| committer | bbaetz%student.usyd.edu.au <> | 2002-04-07 10:56:45 +0000 |
| commit | ae8a18de80c43febc782c4f398e75fdf89281601 (patch) | |
| tree | 385198c02a27e1befa5e65f262ca8ca7b7f2edba /move.pl | |
| parent | Bug 135815 - Regression on CGI.pl for link to showvotes.cgi. Patch by ddk, 2x... (diff) | |
| download | bugzilla-ae8a18de80c43febc782c4f398e75fdf89281601.tar.gz bugzilla-ae8a18de80c43febc782c4f398e75fdf89281601.tar.bz2 bugzilla-ae8a18de80c43febc782c4f398e75fdf89281601.zip | |
Bug 134575 - some scripts trying to make world writable directories
r=justdave, gerv
Diffstat (limited to 'move.pl')
| -rwxr-xr-x | move.pl | 6 |
1 files changed, 1 insertions, 5 deletions
@@ -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"; |