Parent Directory | Revision Log | Patch
revision 3720 by dmorgan, Thu Feb 3 13:54:58 2011 UTC | revision 3721 by tv, Sat Mar 24 06:37:19 2012 UTC | |
---|---|---|
# | Line 20 my $keyboard = keyboard::read_or_default | Line 20 my $keyboard = keyboard::read_or_default |
20 | if (my ($kb) = grep { !/^-/ } @ARGV) { | if (my ($kb) = grep { !/^-/ } @ARGV) { |
21 | keyboard::KEYBOARD2text($kb) or die "bad keyboard $kb\n"; | keyboard::KEYBOARD2text($kb) or die "bad keyboard $kb\n"; |
22 | $keyboard->{KEYBOARD} = $kb; | $keyboard->{KEYBOARD} = $kb; |
23 | } elsif (grep { $_ eq '--migrate' } @ARGV) { | } elsif (member('--migrate', @ARGV)) { |
24 | keyboard::write($keyboard); | keyboard::write($keyboard); |
25 | exit 0; | exit 0; |
26 | } else { | } else { |
|
ViewVC Help | |
Powered by ViewVC 1.1.30 |