diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-07-31 20:57:45 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-07-31 20:57:45 +0000 |
| commit | 2fc26735fd90e805e971f66e12580bb507e4130e (patch) | |
| tree | 62e88a43dcd2217d36ba3749d3de79e15c40b471 /perl-install | |
| parent | 665c4aaa15abbe276845c75db9984e66b6c723f5 (diff) | |
| download | drakx-backup-do-not-use-2fc26735fd90e805e971f66e12580bb507e4130e.tar drakx-backup-do-not-use-2fc26735fd90e805e971f66e12580bb507e4130e.tar.gz drakx-backup-do-not-use-2fc26735fd90e805e971f66e12580bb507e4130e.tar.bz2 drakx-backup-do-not-use-2fc26735fd90e805e971f66e12580bb507e4130e.tar.xz drakx-backup-do-not-use-2fc26735fd90e805e971f66e12580bb507e4130e.zip | |
(test_mouse): s/my (.*) = 0 if 0/my $1 if 0/
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_gtk.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm index 880c09e6b..2c198464c 100644 --- a/perl-install/install_gtk.pm +++ b/perl-install/install_gtk.pm @@ -461,7 +461,7 @@ sub test_mouse { $mouse->{nbuttons} = max($mouse->{nbuttons}, 5); #- it means, the mouse has more than 3 buttons... $draw_rect->(1, 0, [ $x, $y, $w, $h ]); - my $offset = 0 if 0; + my $offset if 0; $offset += $_[0] if $_[0]; my $step = 10; for (my $i = $offset % $step; $i < $h; $i += $step) { |