use strict;
use warnings;
+use File::Basename;
use File::Temp qw(tmpnam);
use Filesys::Df;
use LockFile::Simple;
my($time,$tile) = split(/ /, $line);
unlink($tile) || warn "Can't remove $tile: $!";
+
+ for (my $dir = dirname($tile); $dir ne $tiledir; $dir = dirname($dir))
+ {
+ unlink($dir);
+ }
}
else
{