From 0fd5158751ff6d6c69112568ae4ae81f2d7a18f4 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Sat, 18 Jan 2014 10:23:35 +0100
Subject: make it more readable by using a variable

---
 perl-install/install/gtk.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install')

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
-- 
cgit v1.2.1