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/drakfont | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/standalone/drakfont') diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont index d0f92deb3..986f8df7d 100755 --- a/perl-install/standalone/drakfont +++ b/perl-install/standalone/drakfont @@ -704,7 +704,7 @@ sub interactive_mode { gtksignal_connect( new Gtk::Button( _("Close") ), clicked => sub { - $::isEmbedded and kill USR1, $::CCPID; + $::isEmbedded and kill 'USR1', $::CCPID; Gtk->main_quit(); } ), @@ -722,7 +722,7 @@ sub interactive_mode { # gtksignal_connect(new Gtk::Button(_(" Help ")), clicked => sub { # ${$central_widget}->destroy(); help() }), # gtksignal_connect(new Gtk::Button(_("Close")), clicked => sub { - # $::isEmbedded and kill USR1, $::CCPID; + # $::isEmbedded and kill 'USR1', $::CCPID; # Gtk->main_quit() }), # ), # ) @@ -740,7 +740,7 @@ sub interactive_mode { # $window1->show_all(); Gtk->main_iteration while Gtk->events_pending; - $::isEmbedded and kill USR2, $::CCPID; + $::isEmbedded and kill 'USR2', $::CCPID; Gtk->main; Gtk->exit(0); } -- cgit v1.2.1