diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/mouse.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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; |