my $tiledir = shift @ARGV;
-my $lockmgr = LockFile::Simple->make(-autoclean => 1, -max => 0, -warn => 0);
+my $lockmgr = LockFile::Simple->make(-autoclean => 1, -max => 1, -hold => 0, -warn => 0);
-$lockmgr->lock($tiledir) || exit 0;
+$lockmgr->lock("${tiledir}/cleanup") || exit 0;
my $tempfile = tmpnam();
unlink($tempfile);
-$lockmgr->unlock($tiledir);
+$lockmgr->unlock("${tiledir}/cleanup");
exit 0;