summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2014-01-18 10:23:35 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2014-02-07 21:35:05 +0100
commit0fd5158751ff6d6c69112568ae4ae81f2d7a18f4 (patch)
treecb01466d614e010dbc1019d876d1d6fabb435399 /perl-install
parenta14f5e346a90094db1a2ceb4043b1a18fec8e90a (diff)
downloaddrakx-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')
-rw-r--r--perl-install/install/gtk.pm3
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