From ff872004f6d5f202a6a8cd418bad3b2458d2ed66 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 28 Aug 2000 21:16:32 +0000 Subject: no_comment --- perl-install/share/keymaps.tar.bz2 | Bin 10879 -> 10929 bytes perl-install/share/keymaps_generate | 9 +++++---- 2 files changed, 5 insertions(+), 4 deletions(-) (limited to 'perl-install/share') diff --git a/perl-install/share/keymaps.tar.bz2 b/perl-install/share/keymaps.tar.bz2 index c5d5177cc..8ca03c137 100644 Binary files a/perl-install/share/keymaps.tar.bz2 and b/perl-install/share/keymaps.tar.bz2 differ diff --git a/perl-install/share/keymaps_generate b/perl-install/share/keymaps_generate index 29fd576fb..a2c461fb6 100755 --- a/perl-install/share/keymaps_generate +++ b/perl-install/share/keymaps_generate @@ -3,15 +3,16 @@ use lib ".."; use keyboard; -system("rm -rf keymaps ; mkdir keymaps"); +my $dir = "keymaps/usr/share/keymaps"; +system("rm -rf keymaps ; mkdir -p keymaps/usr/share/keymaps"); foreach (keyboard::xmodmaps()) { my $kmap = keyboard::keyboard2kmap($_); - if (system("./kmap2bkmap $kmap > keymaps/$kmap.bkmap 2>/dev/null") != 0) { + if (system("./kmap2bkmap $kmap > $dir/$kmap.bkmap 2>/dev/null") != 0) { warn "unknown kmap $kmap\n"; - unlink "keymaps/$kmap.bkmap"; + unlink "$dir/$kmap.bkmap"; } } -system("tar cfI keymaps.tar.bz2 keymaps") == 0 or die; +system("tar cfI keymaps.tar.bz2 -C keymaps usr") == 0 or die; system("rm -rf keymaps"); -- cgit v1.2.1