X-Git-Url: https://git.sesse.net/?p=pr0n;a=blobdiff_plain;f=perl%2Fupdate-image-cache.pl;h=0ed6931bfe63ca4a2fcf648fa3e03202d765360b;hp=3857ae22db4918d3124a1d9e64c5e55a7d4b23fe;hb=aeda5c873bbb0b0492cea8bf308c95927ef530ec;hpb=29f1fc41da78a3cb8177e28d0579453c8d6ecc4e

diff --git a/perl/update-image-cache.pl b/perl/update-image-cache.pl
index 3857ae2..0ed6931 100755
--- a/perl/update-image-cache.pl
+++ b/perl/update-image-cache.pl
@@ -51,6 +51,8 @@ sub warn {
 sub error {
 	print STDERR $_[1], "\n";
 }
+sub logger {
+}
 package main;
 use Sesse::pr0n::Common;
 
@@ -116,7 +118,7 @@ while (my $ref = $q->fetchrow_hashref) {
 		}
 	}
 	next unless $any_old;
-	unlink (@files);
+	unlink (@files) or die "Could not delete: $!";
 	if (scalar @noboxres > 0) {
 		Sesse::pr0n::Common::ensure_cached($r, $ref->{'filename'}, $id, $ref->{'width'}, $ref->{'height'}, sort_res(@noboxres));
 	}