From b9ecdc59d802da2ad4bbcfe37f303f53e6b07601 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Mon, 4 Jun 2012 20:21:18 +0000
Subject: (createXconf) simplify, more readable

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

(limited to 'perl-install/install/gtk.pm')

diff --git a/perl-install/install/gtk.pm b/perl-install/install/gtk.pm
index f7baac33d..a447e215d 100644
--- a/perl-install/install/gtk.pm
+++ b/perl-install/install/gtk.pm
@@ -255,7 +255,8 @@ sub createXconf {
     #- remove "error opening security policy file" warning
     symlink("/tmp/stage2/etc/X11", "/etc/X11");
 
-if ($Driver) {
+    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"'));
 Section "ServerFlags"
@@ -323,7 +324,6 @@ Section "ServerLayout"
 EndSection
 
 END
- }
 }
 
 1;
-- 
cgit v1.2.1