X-Git-Url: http://git.harvie.cz/?a=blobdiff_plain;f=perl%2Ffacedetect.pl;h=ca0cc8895e5fc3a78ad7bf625bf0ec1b41b10208;hb=487a386c1e83095c2de3a361888ca2b58ae91942;hp=8139f6eb8e784e8ea6ecb9a6a0adbdd00e57cb2b;hpb=38a87dc6ae7e58d30d3325e244f6eaffb40e35bc;p=mirrors%2FPrograms.git

diff --git a/perl/facedetect.pl b/perl/facedetect.pl
index 8139f6e..ca0cc88 100755
--- a/perl/facedetect.pl
+++ b/perl/facedetect.pl
@@ -32,8 +32,7 @@ foreach(@cascades) {
 for my $face (@faces) {
     my $file2 = 'paroubek.jpg';
     my $image2 = Imager->new->read(file => $file2);
-    $image2 = $image2->scale(xpixels => $face->{width}, ypixels => $face->
-{height});
+    $image2 = $image2->scale(xpixels => $face->{width}, ypixels => $face->{height});
     $image->paste(left => $face->{x}, top => $face->{y}, src => $image2);
 }