From d3ad34d44d95c630499a0c2fff717b204e18361d Mon Sep 17 00:00:00 2001 From: Olivier Blin 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