diff options
| author | Francois Pons <fpons@mandriva.com> | 2001-08-30 16:34:11 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2001-08-30 16:34:11 +0000 |
| commit | 33825e698d75f7979e4129c10db69308557fa498 (patch) | |
| tree | 6435079075823b6add2c89aeb709979c1cd0431b /perl-install | |
| parent | 2c3ba3788c6c6ba51a1b59795255e997cc240687 (diff) | |
| download | drakx-backup-do-not-use-33825e698d75f7979e4129c10db69308557fa498.tar drakx-backup-do-not-use-33825e698d75f7979e4129c10db69308557fa498.tar.gz drakx-backup-do-not-use-33825e698d75f7979e4129c10db69308557fa498.tar.bz2 drakx-backup-do-not-use-33825e698d75f7979e4129c10db69308557fa498.tar.xz drakx-backup-do-not-use-33825e698d75f7979e4129c10db69308557fa498.zip | |
keep mouse specific paramater if user does not change its mouse.
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/mousedrake | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/standalone/mousedrake b/perl-install/standalone/mousedrake index be8ec2851..9742bd7de 100755 --- a/perl-install/standalone/mousedrake +++ b/perl-install/standalone/mousedrake @@ -51,7 +51,8 @@ if (!$mouse || !$::auto) { $mouse->{type} . '|' . $mouse->{name}); Gtk->timeout_remove($time_tag2) if $::isEmbedded && ref($in) =~ /gtk/; $name or $::isEmbedded ? do { kill(USR1, $::CCPID); goto begin } : $in->exit(0); - $mouse = mouse::fullname2mouse($name); + my $mouse_chosen = mouse::fullname2mouse($name); + $mouse->{type} eq $mouse_chosen->{type} && $mouse->{name} eq $mouse_chosen->{type} or $mouse = $mouse_chosen; if ($mouse->{device} eq "usbmouse") { my ($c) = grep { $_->{driver} =~ /usb-[ou]hci/ } detect_devices::pci_probe(0) or die _("no serial_usb found\n"); |