docs

[mirrors/Programs.git] / perl / facedetect.pl

diff --git a/perl/facedetect.pl b/perl/facedetect.pl
index 8139f6eb8e784e8ea6ecb9a6a0adbdd00e57cb2b..ca0cc8895e5fc3a78ad7bf625bf0ec1b41b10208 100755 (executable)
--- 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);
 }