summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/keyboarddrake
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-08-05 13:29:39 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-08-05 13:29:39 +0000
commit88945cb8cd27a11295159cb85944d00180280d61 (patch)
treeb25ff270988310768753414580b88cedc496ca91 /perl-install/standalone/keyboarddrake
parent5889fd12bc1433d4500fc7349fe26bbc8a7a7548 (diff)
downloaddrakx-backup-do-not-use-88945cb8cd27a11295159cb85944d00180280d61.tar
drakx-backup-do-not-use-88945cb8cd27a11295159cb85944d00180280d61.tar.gz
drakx-backup-do-not-use-88945cb8cd27a11295159cb85944d00180280d61.tar.bz2
drakx-backup-do-not-use-88945cb8cd27a11295159cb85944d00180280d61.tar.xz
drakx-backup-do-not-use-88945cb8cd27a11295159cb85944d00180280d61.zip
replace "kill USR1" with "kill 'USR1'" (and same for USR2)
(so that 'use strict' works)
Diffstat (limited to 'perl-install/standalone/keyboarddrake')
-rwxr-xr-xperl-install/standalone/keyboarddrake4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/standalone/keyboarddrake b/perl-install/standalone/keyboarddrake
index e5137530c..7940726fa 100755
--- a/perl-install/standalone/keyboarddrake
+++ b/perl-install/standalone/keyboarddrake
@@ -26,7 +26,7 @@ if (my ($kb) = grep { !/^-/ } @ARGV) {
$in = 'interactive'->vnew('su', 'keyboard');
begin:
- $::isEmbedded and kill USR2, $::CCPID;
+ $::isEmbedded and kill 'USR2', $::CCPID;
choose:
$keyboard->{KEYBOARD} = $in->ask_from_listf(_("Keyboard"),
_("Please, choose your keyboard layout."),
@@ -59,7 +59,7 @@ keyboard::write($keyboard);
end:
if ($::isEmbedded) {
- kill(USR1, $::CCPID);
+ kill('USR1', $::CCPID);
$keyboard = '';
goto begin;
} else {