From 558badd6e3eb531cbd6678ef76e948e5ec9c29c9 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 31 Jan 2003 13:40:35 +0000
Subject: (createXconf): special case for "none" mouse device

---
 perl-install/install_gtk.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm
index 0f975ee80..25765837c 100644
--- a/perl-install/install_gtk.pm
+++ b/perl-install/install_gtk.pm
@@ -178,7 +178,7 @@ sub createXconf {
 
     $mouse_type = 'IMPS/2' if $mouse_type eq 'ExplorerPS/2';
     devices::make("/dev/kbd") if arch() =~ /^sparc/; #- used by Xsun style server.
-    symlinkf(devices::make($mouse_dev), "/dev/mouse");
+    symlinkf(devices::make($mouse_dev), "/dev/mouse") if $mouse_dev ne 'none';
 
     #- needed for imlib to start on 8-bit depth visual.
     symlink("/tmp/stage2/etc/imrc", "/etc/imrc");
-- 
cgit v1.2.1