diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-06-03 04:45:04 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-06-03 04:45:04 +0000 |
| commit | ff036a133943d983ac7076b91557119e4949b7f5 (patch) | |
| tree | 7ac7f36fb0fe35f30a6f76516a98489d6586e0bc /perl-install | |
| parent | 75f10e1d115428b94fb845e93bb001c3b48f10c6 (diff) | |
| download | drakx-ff036a133943d983ac7076b91557119e4949b7f5.tar drakx-ff036a133943d983ac7076b91557119e4949b7f5.tar.gz drakx-ff036a133943d983ac7076b91557119e4949b7f5.tar.bz2 drakx-ff036a133943d983ac7076b91557119e4949b7f5.tar.xz drakx-ff036a133943d983ac7076b91557119e4949b7f5.zip | |
keyboard::setup() is better named keyboard::setup_install()
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/commands.pm | 2 | ||||
| -rw-r--r-- | perl-install/install_steps.pm | 4 | ||||
| -rw-r--r-- | perl-install/keyboard.pm | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/commands.pm b/perl-install/commands.pm index 14c4786f3..e6e49f5af 100644 --- a/perl-install/commands.pm +++ b/perl-install/commands.pm @@ -473,7 +473,7 @@ sub loadkeys { $h || @_ != 1 and die "usage: loadkeys <keyboard>\n"; require keyboard; - keyboard::setup({ KEYBOARD => $_[0] }); + keyboard::setup_install({ KEYBOARD => $_[0] }); } sub sync() { common::sync() } diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 3485c6986..f4b170a93 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -121,7 +121,7 @@ sub selectLanguage { if (!$o->{keyboard} || $o->{keyboard}{unsafe}) { $o->{keyboard} = keyboard::default($o->{locale}); $o->{keyboard}{unsafe} = 1; - keyboard::setup($o->{keyboard}); + keyboard::setup_install($o->{keyboard}); } $o->charsetChanged; @@ -137,7 +137,7 @@ sub selectLanguage { sub selectKeyboard { my ($o) = @_; $o->{keyboard}{KBCHARSET} = lang::l2charset($o->{locale}{lang}); - keyboard::setup($o->{keyboard}); + keyboard::setup_install($o->{keyboard}); addToBeDone { keyboard::write($o->{keyboard}); diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm index f01433a04..5dfbede1e 100644 --- a/perl-install/keyboard.pm +++ b/perl-install/keyboard.pm @@ -564,7 +564,7 @@ sub setxkbmap { run_program::run('setxkbmap', $xkb->{XkbLayout}, '-model' => $xkb->{XkbModel}, '-option' => $xkb->{XkbOptions} || '', '-compat' => $xkb->{XkbCompat} || ''); } -sub setup { +sub setup_install { my ($keyboard) = @_; return if arch() =~ /^sparc/; |