From 6f5f36a66dee94da10f3e342f608328ad0acaa06 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 29 Sep 2003 13:13:19 +0000
Subject: cleanup

---
 perl-install/mouse.pm | 1 -
 1 file changed, 1 deletion(-)

diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index 6a573ace7..44cd2ca60 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -485,7 +485,6 @@ sub test_mouse {
 	$draw_pixbuf->($images{$name}, $x, $y);
     };
     my $drawarea = sub {
-	my ($height) = @_;
 	$draw_by_name->('mouse');
 	if ($::isInstall || 1) {
 	    $draw_text->(N("Please test the mouse"), 200);
-- 
cgit v1.2.1