summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/gtk.pm2
-rw-r--r--perl-install/install/steps_gtk.pm2
2 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install/gtk.pm b/perl-install/install/gtk.pm
index 42a331084..a4479a21b 100644
--- a/perl-install/install/gtk.pm
+++ b/perl-install/install/gtk.pm
@@ -247,7 +247,7 @@ sub special_shortcuts {
#------------------------------------------------------------------------------
sub createXconf {
- my ($file, $mouse_type, $mouse_dev, $_wacom_dev, $Driver) = @_;
+ my ($file, $Driver) = @_;
symlinkf(devices::make($mouse_dev), "/dev/mouse") if $mouse_dev ne 'none';
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm
index 140f146ed..04fdce954 100644
--- a/perl-install/install/steps_gtk.pm
+++ b/perl-install/install/steps_gtk.pm
@@ -111,7 +111,7 @@ sub _launchX {
if ($server eq 'Xnest') {
push @options, '-ac', '-geometry', $o->{vga} || ($o->{vga16} ? '640x480' : '800x600');
} else {
- install::gtk::createXconf($f, @{$o->{mouse}}{'Protocol', 'device'}, $o->{mouse}{wacom}[0], $Driver);
+ install::gtk::createXconf($f, $Driver);
push @options, '-allowMouseOpenFail', '-xf86config', $f;
push @options, 'vt7', '-dpi', '75';