From 38c93685494c0ace5fce6ab92fb52176ed9cf872 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 6 Aug 2002 11:55:10 +0000
Subject: make wacom config work

---
 perl-install/Xconfig/xfree4.pm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'perl-install/Xconfig/xfree4.pm')

diff --git a/perl-install/Xconfig/xfree4.pm b/perl-install/Xconfig/xfree4.pm
index 58c6cdad0..8ffa411e0 100644
--- a/perl-install/Xconfig/xfree4.pm
+++ b/perl-install/Xconfig/xfree4.pm
@@ -63,20 +63,21 @@ sub set_wacoms {
 
     @wacoms or return;
 
-    my %Modes = (Stylus => 'Absolute', Erasor => 'Absolute', Cursor => 'Relative');
+    my %Modes = (Stylus => 'Absolute', Eraser => 'Absolute', Cursor => 'Relative');
 
     each_index {
-	my ($wacom) = @_;
+	my $wacom = $_;
 	foreach (keys %Modes) {
-	    my $h = { Identifier => { val => $_ . ($::i + 1) }, 
+	    my $identifier = $_ . ($::i + 1);
+	    my $h = { Identifier => { val => $identifier }, 
 		      Driver => { val => 'wacom' },
-		      Style => { val => lc $_, Option => 1 },
+		      Type => { val => lc $_, Option => 1 },
 		      Device => { val => $wacom->{Device}, Option => 1 },
 		      Mode => { val => $Modes{$_}, Option => 1 },
 		      if_($wacom->{USB}, USB => { Option => 1 })
 		    };
 	    $raw_X->add_Section('InputDevice', $h);
-	    push @$layout, { val => qq("$_$::i" "AlwaysCore") };
+	    push @$layout, { val => qq("$identifier" "AlwaysCore") };
 	}
     } @wacoms;
 }
-- 
cgit v1.2.1