diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-08-27 10:58:06 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-08-27 10:58:06 +0000 |
| commit | 69907ed1e861483d4063a1eec3662690681651a7 (patch) | |
| tree | 57be1d65269228481701e476bcf25c4a06ba6366 /perl-install/Xconfig.pm | |
| parent | 0a2ecf8b913dea899159f455cd5b9db7d39e6031 (diff) | |
| download | drakx-backup-do-not-use-69907ed1e861483d4063a1eec3662690681651a7.tar drakx-backup-do-not-use-69907ed1e861483d4063a1eec3662690681651a7.tar.gz drakx-backup-do-not-use-69907ed1e861483d4063a1eec3662690681651a7.tar.bz2 drakx-backup-do-not-use-69907ed1e861483d4063a1eec3662690681651a7.tar.xz drakx-backup-do-not-use-69907ed1e861483d4063a1eec3662690681651a7.zip | |
no_comment
Diffstat (limited to 'perl-install/Xconfig.pm')
| -rw-r--r-- | perl-install/Xconfig.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/Xconfig.pm b/perl-install/Xconfig.pm index 1d1babd49..edbdc2c01 100644 --- a/perl-install/Xconfig.pm +++ b/perl-install/Xconfig.pm @@ -22,9 +22,9 @@ sub getinfo { getinfoFromSysconfig($o); $o->{mouse}{emulate3buttons} = 1; - unless ($o->{mouse}{xtype}) { + unless ($o->{mouse}{XMOUSETYPE}) { my ($type, $dev) = split("\n", `mouseconfig --nointeractive 2>/dev/null`) or die "mouseconfig failed"; - $o->{mouse}{xtype} ||= $type; + $o->{mouse}{XMOUSETYPE} ||= $type; $o->{mouse}{device} ||= "/dev/$dev"; } $o->{mouse}{device} ||= "/dev/mouse" if -e "/dev/mouse"; @@ -43,7 +43,7 @@ sub getinfoFromXF86Config { if (/^Section "Keyboard"/ .. /^EndSection/) { $o->{keyboard}{xkb_keymap} ||= $1 if /^\s*XkbLayout\s+"(.*?)"/; } elsif (/^Section "Pointer"/ .. /^EndSection/) { - $o->{mouse}{xtype} ||= $1 if /^\s*Protocol\s+"(.*?)"/; + $o->{mouse}{XMOUSETYPE} ||= $1 if /^\s*Protocol\s+"(.*?)"/; $o->{mouse}{device} ||= $1 if /^\s*Device\s+"(.*?)"/; } elsif (my $i = /^Section "Device"/ .. /^EndSection/) { if ($i = 1 && $c{type} && $c{type} ne "Generic VGA") { @@ -81,7 +81,7 @@ sub getinfoFromXF86Config { sub getinfoFromSysconfig { my $o = shift || {}; if (my %mouse = getVarsFromSh "/etc/sysconfig/mouse") { - $o->{mouse}{xtype} ||= $mouse{XMOUSETYPE}; + $o->{mouse}{XMOUSETYPE} ||= $mouse{XMOUSETYPE}; } if (my %keyboard = getVarsFromSh "/etc/sysconfig/keyboard") { $keyboard{KEYTABLE} or last; |