From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 13 Oct 2009 00:09:52 +0000 (+0200)
Subject: use scaled image instead of original
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=5d69f0a7ea9bb8677f53e7eeeb0335420f02ba10;p=HTML5TV.git

use scaled image instead of original
---

diff --git a/bin/mplayer.pl b/bin/mplayer.pl
index b050711..a92bda0 100755
--- a/bin/mplayer.pl
+++ b/bin/mplayer.pl
@@ -176,8 +176,7 @@ sub html5tv {
 				$file =~ s{^.+/(p\d+\.\w)}{$path/$1};
 
 				my $im = Imager->new( file => $hires );
-				$im->scale( xpixels => $w, ypixels => $h, type => 'min' );
-				$im->write( file => $file );
+				$im->scale( xpixels => $w, ypixels => $h, type => 'min' )->write( file => $file );
 				warn "resized $file ", -s $file, " bytes\n";
 			}
 		}