From 88945cb8cd27a11295159cb85944d00180280d61 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 5 Aug 2002 13:29:39 +0000 Subject: replace "kill USR1" with "kill 'USR1'" (and same for USR2) (so that 'use strict' works) --- perl-install/standalone/drakautoinst | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/standalone/drakautoinst') diff --git a/perl-install/standalone/drakautoinst b/perl-install/standalone/drakautoinst index dc18dfca8..9eedb1494 100755 --- a/perl-install/standalone/drakautoinst +++ b/perl-install/standalone/drakautoinst @@ -37,7 +37,7 @@ $::direct = 1; #DEBUG my $in = 'interactive'->vnew('su', 'default'); begin: -$::isEmbedded and kill USR2, $::CCPID; +$::isEmbedded and kill 'USR2', $::CCPID; my $imagefile = "/root/drakx/replay_install.img"; -f $imagefile or $in->ask_okcancel(_("Error!"), @@ -213,7 +213,7 @@ if (!$::isEmbedded && $in->isa('interactive::gtk')) { # ); # $notebook->set_tab_pos('left'); # $::isEmbedded and Gtk->main_iteration while Gtk->events_pending; - $::isEmbedded and kill (12, $::CCPID); + $::isEmbedded and kill ('USR2', $::CCPID); $W->main; # $W->destroy(); } @@ -244,7 +244,7 @@ quit_global($in, 0); sub quit_global { my ($in, $exitcode) = @_; - $::isEmbedded ? kill USR1, $::CCPID : $in->exit($exitcode); + $::isEmbedded ? kill 'USR1', $::CCPID : $in->exit($exitcode); goto begin; } -- cgit v1.2.1