summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
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/my_gtk.pm
parent5889fd12bc1433d4500fc7349fe26bbc8a7a7548 (diff)
downloaddrakx-88945cb8cd27a11295159cb85944d00180280d61.tar
drakx-88945cb8cd27a11295159cb85944d00180280d61.tar.gz
drakx-88945cb8cd27a11295159cb85944d00180280d61.tar.bz2
drakx-88945cb8cd27a11295159cb85944d00180280d61.tar.xz
drakx-88945cb8cd27a11295159cb85944d00180280d61.zip
replace "kill USR1" with "kill 'USR1'" (and same for USR2)
(so that 'use strict' works)
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r--perl-install/my_gtk.pm4
1 files changed, 2 insertions, 2 deletions
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
}