From aeda5c873bbb0b0492cea8bf308c95927ef530ec Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sgunderson@bigfoot.com>
Date: Wed, 15 Jul 2020 20:12:28 +0200
Subject: [PATCH] In update-image-cache, do not fail silently on unlink.

---
 perl/update-image-cache.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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));
 	}
-- 
2.39.2