From ed95488bbb2420c7d0eb6779b21aee493cd8f3e2 Mon Sep 17 00:00:00 2001 From: damien Date: Wed, 12 Sep 2001 12:47:36 +0000 Subject: removed debug code --- perl-install/mouse.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm index 6222e322f..cad364d90 100644 --- a/perl-install/mouse.pm +++ b/perl-install/mouse.pm @@ -468,7 +468,7 @@ sub test_mouse { my ($aru, $aru_mask) = gtkcreate_xpm($darea, 'arrow_up.xpm'); my ($ard, $ard_mask) = gtkcreate_xpm($darea, 'arrow_down.xpm'); my $image = $m3_image; - $mouse->{nbuttons} > 3 || 1 and $image = $m3_imagep; + $mouse->{nbuttons} > 3 and $image = $m3_imagep; my $draw_text = sub { my ($t, $y) = @_; my $font = $darea->style->font; -- cgit v1.2.1