Handle decimal exposure times -- for instance, it seems like the D70 sometimes

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

diff --git a/perl/Sesse/pr0n/QscaleProxy.pm b/perl/Sesse/pr0n/QscaleProxy.pm
index f534d78f9ae279c6aa1820f9083e8473948dac55..3f0052c2c0b70b4454296ceb2b9174075863b126 100644 (file)
--- a/perl/Sesse/pr0n/QscaleProxy.pm
+++ b/perl/Sesse/pr0n/QscaleProxy.pm
@@ -129,9 +129,10 @@ sub Resize {
        my $samp_v2 = 1;
 
        my $filter;
-       if ($args{'filter'} eq 'Lanczos' ||
-           $args{'filter'} eq 'Mitchell') {
+       if ($args{'filter'} eq 'Lanczos') {
                $filter = $qscale::LANCZOS;
+       } elsif ($args{'filter'} eq 'Mitchell') {
+               $filter = $qscale::MITCHELL;
        } else {
                die "Unknown filter " . $args{'filter'};
        }