From 159b0032bab0428646140a1de047803dec5f7fc0 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 17 Feb 2005 19:22:19 +0000
Subject: simplify

---
 perl-install/standalone/keyboarddrake | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/standalone/keyboarddrake')

diff --git a/perl-install/standalone/keyboarddrake b/perl-install/standalone/keyboarddrake
index 77a15ade2..5a108ed85 100755
--- a/perl-install/standalone/keyboarddrake
+++ b/perl-install/standalone/keyboarddrake
@@ -21,7 +21,7 @@ if (my ($kb) = grep { !/^-/ } @ARGV) {
     $in = 'interactive'->vnew('su');
 
     my ($xkb_models, $model2text) = keyboard::xkb_models();
-    $_ =~ s/ /|/ foreach values %$model2text;
+    s/ /|/ foreach values %$model2text;
     $keyboard->{XkbModel} ||= 'pc105';
 
   choose:
-- 
cgit v1.2.1