diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-05-23 18:25:34 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-05-23 18:25:34 +0000 |
| commit | 8f634ed41048294e9acf3d4f5829233866d7e783 (patch) | |
| tree | 9a79dd375a3b43f4568ec1c553c05cf86da0aa52 | |
| parent | ded5dfc39d0a26b20a70b3802299cc0f20dfc6f3 (diff) | |
| download | drakx-backup-do-not-use-8f634ed41048294e9acf3d4f5829233866d7e783.tar drakx-backup-do-not-use-8f634ed41048294e9acf3d4f5829233866d7e783.tar.gz drakx-backup-do-not-use-8f634ed41048294e9acf3d4f5829233866d7e783.tar.bz2 drakx-backup-do-not-use-8f634ed41048294e9acf3d4f5829233866d7e783.tar.xz drakx-backup-do-not-use-8f634ed41048294e9acf3d4f5829233866d7e783.zip | |
perl_checker cleanups
| -rwxr-xr-x | perl-install/install/share/kmap2bkmap | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/perl-install/install/share/kmap2bkmap b/perl-install/install/share/kmap2bkmap index 8ac8f5846..9870ef3ef 100755 --- a/perl-install/install/share/kmap2bkmap +++ b/perl-install/install/share/kmap2bkmap @@ -8,10 +8,12 @@ my $KMAP_MAGIC = 0x8B39C07F; BEGIN { @ARGV == 1 or die "usage: kmap2bkmap <keymap>\n" } # load unicode keymap -my $unimap = "$ARGV[0]" . ".uni"; +my $unimap = $ARGV[0] . ".uni"; system("sudo loadkeys $unimap") == 0 or die; -open F, "dumpkeys -n -f |"; -<F> =~ /^keymaps\s+(.*)/ or die; +open my $F, "dumpkeys -n -f |"; +<$F> =~ /^keymaps\s+(.*)/ or die; + +my @keymaps; foreach (split ',', $1) { my @l = /(\d+)-(\d+)/; my ($i, $j) = @l ? @l : ($_,$_); @@ -21,14 +23,15 @@ foreach (split ',', $1) { print pack("I", $KMAP_MAGIC); print map { pack "i", $keymaps[$_] || 0 } 0 .. c::MAX_NR_KEYMAPS()-1; -foreach (<F>) { +my @L; +foreach (<$F>) { s/\+0x/0x/g; my ($keycode, $key, undef, @l) = split; $keycode eq 'keycode' or next; my $i = 0; $L[$i++][$key] = hex $_ foreach @l; } -close F or die "dumpkeys failed"; +close $F or die "dumpkeys failed"; foreach (@L) { foreach my $i (0 .. c::NR_KEYS()-1) { |