From d3ad34d44d95c630499a0c2fff717b204e18361d Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Mon, 21 Nov 2005 12:50:18 +0000
Subject: perl_checker fix

---
 perl-install/Xconfig/xfree.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/Xconfig')

diff --git a/perl-install/Xconfig/xfree.pm b/perl-install/Xconfig/xfree.pm
index 12ff9bab4..5cba3eec4 100644
--- a/perl-install/Xconfig/xfree.pm
+++ b/perl-install/Xconfig/xfree.pm
@@ -671,7 +671,7 @@ foreach my $ratio (keys %ratio2resolutions) {
 	    $y == $y2 or do {
 		my $good_ratio = (find { m!^(\d+)/(\d+)$! && $y == round($x * $2 / $1) } keys %ratio2resolutions) || '??';
 		die "bad ratio $ratio for resolution $_, it should be $good_ratio\n";
-	    }
+	    };
 	}
     }
 }
-- 
cgit v1.2.1