diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2014-01-18 10:23:35 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2014-02-07 21:35:05 +0100 |
| commit | 0fd5158751ff6d6c69112568ae4ae81f2d7a18f4 (patch) | |
| tree | cb01466d614e010dbc1019d876d1d6fabb435399 /perl-install/install/gtk.pm | |
| parent | a14f5e346a90094db1a2ceb4043b1a18fec8e90a (diff) | |
| download | drakx-0fd5158751ff6d6c69112568ae4ae81f2d7a18f4.tar drakx-0fd5158751ff6d6c69112568ae4ae81f2d7a18f4.tar.gz drakx-0fd5158751ff6d6c69112568ae4ae81f2d7a18f4.tar.bz2 drakx-0fd5158751ff6d6c69112568ae4ae81f2d7a18f4.tar.xz drakx-0fd5158751ff6d6c69112568ae4ae81f2d7a18f4.zip | |
make it more readable by using a variable
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 |