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/my_gtk.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index a672c2421..f5064c898 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -98,7 +98,7 @@ sub new {
 	flush();
 	$::Plug->add($o->{window});
     }
-    $::CCPID and kill "USR2", $::CCPID;
+    $::CCPID and kill 'USR2', $::CCPID;
     $o;
 }
 sub main {
@@ -137,7 +137,7 @@ sub flush { gtkflush() }
 sub exit {
     gtkset_mousecursor_normal(); #- for restoring a normal in any case
     flush();
-    $::isEmbedded and kill USR1, $::CCPID;
+    $::isEmbedded and kill 'USR1', $::CCPID;
     c::_exit($_[1]) #- workaround 
 }
 
-- 
cgit v1.2.1