From 7692cd97b7c64a41f77a6c4b745248ad76670d42 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sesse@debian.org>
Date: Mon, 26 May 2008 23:05:22 +0200
Subject: [PATCH] More weird hacks to get the PNG file size down. GIMP still
 gets it 25% better since I can actually make it output something indexed, but
 this will do for now.

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

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index ae1d3d0..c441d67 100644
--- a/perl/Sesse/pr0n/Common.pm
+++ b/perl/Sesse/pr0n/Common.pm
@@ -586,7 +586,7 @@ sub ensure_cached {
 				$height = 1;
 			}
 				
-			$err = $img->write(filename => $cachename, quality => 99);
+			$err = $img->write(filename => $cachename, quality => 90, depth => 8);
 			$r->log->info("New infobox cache: $width x $height for $id.jpg");
 			
 			return ($cachename, 'image/png');
-- 
2.39.2