From 88945cb8cd27a11295159cb85944d00180280d61 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
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/bootlook.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'perl-install/bootlook.pm')

diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm
index 32913859a..39b234d59 100644
--- a/perl-install/bootlook.pm
+++ b/perl-install/bootlook.pm
@@ -58,7 +58,7 @@ my $inmain = 0;
 my $lilogrub = chomp_(`detectloader -q`);
 
 my $window = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window ("toplevel");
-$window->signal_connect(delete_event => sub { $::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0) });
+$window->signal_connect(delete_event => sub { $::isEmbedded ? kill('USR1', $::CCPID) : Gtk->exit(0) });
 $window->set_title(_("Boot Style Configuration"));
 $window->border_width(2);
 #$window->realize;
@@ -77,7 +77,7 @@ my $pixmap = new Gtk::Pixmap($h_pixmap, $h_mask);
 # the menus are not shown
 # but they provides shiny shortcut like C-q
 my @menu_items = ( { path => _("/_File"), type => '<Branch>' },
-		   { path => _("/File/_Quit"), accelerator => _("<control>Q"), callback    => sub { $::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0) } },
+		   { path => _("/File/_Quit"), accelerator => _("<control>Q"), callback    => sub { $::isEmbedded ? kill('USR1', $::CCPID) : Gtk->exit(0) } },
 		 );
 my $menubar = get_main_menu($window);
 ######### menus end
@@ -324,8 +324,8 @@ Click on Configure to launch the setup wizard.", $lilogrub),
 				    )
 			 ),
 		 gtkadd (gtkset_layout(new Gtk::HButtonBox,-end),
-			 gtksignal_connect(new Gtk::Button(_("OK")), clicked => sub{ updateInit(); updateAutologin(); updateAurora(); $::isEmbedded ? kill(USR1,$::CCPID) : Gtk->exit(0) }),
-			 gtksignal_connect(new Gtk::Button(_("Cancel")), clicked => sub { $::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0) })
+			 gtksignal_connect(new Gtk::Button(_("OK")), clicked => sub{ updateInit(); updateAutologin(); updateAurora(); $::isEmbedded ? kill('USR1',$::CCPID) : Gtk->exit(0) }),
+			 gtksignal_connect(new Gtk::Button(_("Cancel")), clicked => sub { $::isEmbedded ? kill('USR1', $::CCPID) : Gtk->exit(0) })
 			)
 	       )
       );
@@ -345,7 +345,7 @@ if ($a_mode) {
 $window->show_all();
 $no_bootsplash and $thm_frame->hide();
 Gtk->main_iteration while Gtk->events_pending;
-$::isEmbedded and kill USR2, $::CCPID;
+$::isEmbedded and kill 'USR2', $::CCPID;
 $inmain=1;
 Gtk->main;
 Gtk->exit(0);
-- 
cgit v1.2.1