From: Harvie <tomas@mudrunka.cz>
Date: Fri, 3 Aug 2012 19:25:03 +0000 (+0200)
Subject: Dewrap
X-Git-Url: https://git.harvie.cz/?a=commitdiff_plain;h=24d4c0d4da08ec54f5529f9688414fe2585bc108;p=mirrors%2FPrograms.git

Dewrap
---

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);
 }