diff options
Diffstat (limited to 'perl-install/install/gtk.pm')
| -rw-r--r-- | perl-install/install/gtk.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/install/gtk.pm b/perl-install/install/gtk.pm index 6518d63ba..29d961650 100644 --- a/perl-install/install/gtk.pm +++ b/perl-install/install/gtk.pm @@ -262,7 +262,8 @@ sub createXconf { return if !$Driver; my ($mouse_driver, $mouse_protocol) = detect_devices::is_vmware() ? qw(vmmouse auto) : ('mouse', $mouse_type); - output($file, sprintf(<<'END', $mouse_driver, $mouse_protocol, $Driver, $Driver eq 'fbdev' ? '"default"' : '"800x600" "640x480"')); + my $resolution = $Driver eq 'fbdev' ? '"default"' : '"800x600" "640x480"'; + output($file, sprintf(<<'END', $mouse_driver, $mouse_protocol, $Driver, $resolution)); Section "ServerFlags" Option "AutoAddDevices" "False" EndSection |