open(TILES, "-|", "sort", "-n", $tempfile) || die "Can't open $tempfile: $!";
- while (df($tiledir)->{per} > 80 && ! eof(TILES))
+ while (df($tiledir)->{per} > 80)
{
for my $n (1..1000)
{
unlink($tile) || warn "Can't remove $tile: $!";
}
+ else
+ {
+ goto done;
+ }
}
}
+ done:
+
close(TILES);
}
unlink($tempfile);
+warn "Tile expiry finished before threshold reached" if df($tiledir)->{per} > 80;
+
exit 0;