diff options
| -rw-r--r-- | lib/Xconfig/xfree.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Xconfig/xfree.pm b/lib/Xconfig/xfree.pm index a98d8e6..371d727 100644 --- a/lib/Xconfig/xfree.pm +++ b/lib/Xconfig/xfree.pm @@ -137,7 +137,8 @@ sub get_mice { } sub set_mice { my ($raw_X, @mice) = @_; - my @raw_mice = _new_mouse_sections($raw_X, map { delete $_->{Driver} || ($_->{Protocol} ? 'mouse' : 'evdev') } @mice); + @mice = grep { $_->{Driver} || !$_->{Protocol} } @mice; + my @raw_mice = _new_mouse_sections($raw_X, map { delete $_->{Driver} || 'evdev' } @mice); mapn { my ($raw_mouse, $mouse) = @_; raw_import_section($raw_mouse, $mouse); |