From: Steinar H. Gunderson <sgunderson@bigfoot.com>
Date: Wed, 15 Jul 2020 18:12:28 +0000 (+0200)
Subject: In update-image-cache, do not fail silently on unlink.
X-Git-Url: https://git.sesse.net/?p=pr0n;a=commitdiff_plain;h=aeda5c873bbb0b0492cea8bf308c95927ef530ec;hp=e39f752cca70404407db9cfadb743636e0f3cc1e

In update-image-cache, do not fail silently on unlink.
---

diff --git a/perl/update-image-cache.pl b/perl/update-image-cache.pl
index f26ba99..0ed6931 100755
--- a/perl/update-image-cache.pl
+++ b/perl/update-image-cache.pl
@@ -118,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));
 	}