From 24d4c0d4da08ec54f5529f9688414fe2585bc108 Mon Sep 17 00:00:00 2001
From: Harvie <tomas@mudrunka.cz>
Date: Fri, 3 Aug 2012 21:25:03 +0200
Subject: [PATCH] Dewrap

---
 perl/facedetect.pl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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