Remove unused parameter.

[pr0n] / perl / Sesse / pr0n / Common.pm

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index 72be2184d99a84bcc9245939a791ffa488cc6b9e..c1eadfefc93d80e3566553402b91b1cd49e4417a 100644 (file)
--- a/perl/Sesse/pr0n/Common.pm
+++ b/perl/Sesse/pr0n/Common.pm
@@ -616,7 +616,7 @@ sub ensure_cached {
                        my $sf = "1x1";
 
                        if ($xres != -1) {
                        my $sf = "1x1";
 
                        if ($xres != -1) {

-                               $cimg->Resize(width=>$nwidth, height=>$nheight, filter=>$filter, 'sampling-factor'=>$sf);
+                               $cimg->Resize(width=>$nwidth, height=>$nheight, filter=>$filter);

                        }
 
                        # Strip EXIF tags etc.
                        }
 
                        # Strip EXIF tags etc.