my $tiledir = shift @ARGV;
-my $lockmgr = LockFile::Simple->make(-autoclean => 1, -max => 1, -hold => 0, -warn => 0);
+my $lockmgr = LockFile::Simple->make(-autoclean => 1, -max => 1, -hold => 0, -warn => 0, -stale => 1);
$lockmgr->lock("${tiledir}/cleanup") || exit 0;
for (my $dir = dirname($tile); $dir ne $tiledir; $dir = dirname($dir))
{
- unlink($dir);
+ rmdir($dir);
}
}
else