From: Steinar H. Gunderson <sgunderson@bigfoot.com>
Date: Sat, 28 Nov 2015 15:51:48 +0000 (+0100)
Subject: Remove an unused parameter.
X-Git-Url: https://git.sesse.net/?p=pr0n;a=commitdiff_plain;h=5133c53d9f68b49bbf653f8a795e62a404e63f9d;hp=29f1fc41da78a3cb8177e28d0579453c8d6ecc4e

Remove an unused parameter.
---

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index 8a881e3..67c0c77 100644
--- a/perl/Sesse/pr0n/Common.pm
+++ b/perl/Sesse/pr0n/Common.pm
@@ -212,14 +212,14 @@ sub get_disk_location {
 }
 
 sub get_cache_location {
-	my ($r, $id, $width, $height) = @_;
+	my ($id, $width, $height) = @_;
         my $dir = POSIX::floor($id / 256);
 
 	return $Sesse::pr0n::Config::image_base . "cache/$dir/$id-$width-$height-nobox.jpg";
 }
 
 sub get_infobox_cache_location {
-	my ($r, $id, $width, $height, $dpr) = @_;
+	my ($id, $width, $height, $dpr) = @_;
         my $dir = POSIX::floor($id / 256);
 
 	if ($dpr == 1) {
@@ -581,7 +581,7 @@ sub ensure_cached {
 		return ($fname, undef);
 	}
 
-	my $cachename = get_cache_location($r, $id, $xres, $yres);
+	my $cachename = get_cache_location($id, $xres, $yres);
 	my $err;
 	if (! -r $cachename or (-M $cachename > -M $fname)) {
 		# If we are in overload mode (aka Slashdot mode), refuse to generate
@@ -596,7 +596,7 @@ sub ensure_cached {
 
 		while (defined($xres) && defined($yres)) {
 			my ($nxres, $nyres) = (shift @otherres, shift @otherres);
-			my $cachename = get_cache_location($r, $id, $xres, $yres);
+			my $cachename = get_cache_location($id, $xres, $yres);
 			
 			my $cimg;
 			if (defined($nxres) && defined($nyres)) {
@@ -670,7 +670,7 @@ sub ensure_infobox_cached {
 	my ($new_dbwidth, $new_dbheight);
 
 	my $fname = get_disk_location($r, $id);
-	my $cachename = get_infobox_cache_location($r, $id, $xres, $yres, $dpr);
+	my $cachename = get_infobox_cache_location($id, $xres, $yres, $dpr);
 	my $err;
 	if (! -r $cachename or (-M $cachename > -M $fname)) {
 		# If we are in overload mode (aka Slashdot mode), refuse to generate