summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-02-28 14:08:14 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-02-28 14:08:14 +0000
commitaf42cbd250eb0bf9bbead0ec26469b4b2d205d19 (patch)
tree16005ba2f9996f5f96c0d77e97db083792a0b7c2
parent2ae28a55e353ea9cffc7ffd8678bdf57dd6051ac (diff)
downloaddrakx-af42cbd250eb0bf9bbead0ec26469b4b2d205d19.tar
drakx-af42cbd250eb0bf9bbead0ec26469b4b2d205d19.tar.gz
drakx-af42cbd250eb0bf9bbead0ec26469b4b2d205d19.tar.bz2
drakx-af42cbd250eb0bf9bbead0ec26469b4b2d205d19.tar.xz
drakx-af42cbd250eb0bf9bbead0ec26469b4b2d205d19.zip
(loadkeys_files): ensure each file appear only once
-rw-r--r--perl-install/keyboard.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm
index aefb6ef5a..73c52142c 100644
--- a/perl-install/keyboard.pm
+++ b/perl-install/keyboard.pm
@@ -324,7 +324,7 @@ sub loadkeys_files {
$err->("invalid loadkeys keytable $_") if $err;
}
}
- @l, keys %l, grep { -e $_ } map { "$p/$_.inc.gz" } qw(compose euro windowkeys linux-keys-bare);
+ uniq(@l, keys %l, grep { -e $_ } map { "$p/$_.inc.gz" } qw(compose euro windowkeys linux-keys-bare));
}
sub unpack_keyboards {