From acfea152b48748797784cd8c80bf65952d07a2c8 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sesse@debian.org>
Date: Fri, 21 Mar 2008 23:59:10 +0100
Subject: [PATCH] Fix a bug with scaling from non-mipmaps.

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

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index 9a3d31c..3b94b59 100644
--- a/perl/Sesse/pr0n/Common.pm
+++ b/perl/Sesse/pr0n/Common.pm
@@ -419,7 +419,7 @@ sub make_mipmap {
 
 		push @mmlist, [ $mmwidth, $mmheight ];
 	}
-
+		
 	# Ensure that all of them are OK
 	my $last_good_mmlocation;
 	for my $i (0..$#mmlist) {
@@ -461,6 +461,9 @@ sub make_mipmap {
 		}
 	}
 
+	if (!defined($img)) {
+		$img = read_original_image($r, $id, $dbwidth, $dbheight);
+	}
 	return $img;
 }
 
-- 
2.39.2