From fd38bb6363334ccb1ed756ace442b59c5bdf6bd1 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sgunderson@bigfoot.com>
Date: Sat, 28 Nov 2015 14:46:58 +0100
Subject: [PATCH 1/1] Unbreak a weird special case.

---
 perl/Sesse/pr0n/Common.pm | 1 -
 1 file changed, 1 deletion(-)

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index 171f47d..6685008 100644
--- a/perl/Sesse/pr0n/Common.pm
+++ b/perl/Sesse/pr0n/Common.pm
@@ -603,7 +603,6 @@ sub ensure_cached {
 				$img = read_original_image($r, $filename, $id, $dbwidth, $dbheight, 0);
 				$new_dbwidth = $width = $img->Get('columns');
 				$new_dbheight = $height = $img->Get('rows');
-				@$img = ();
 			} else {
 				$img = Image::Magick->new;
 				$width = $dbwidth;
-- 
2.39.2