diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-08-05 13:29:39 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-08-05 13:29:39 +0000 |
| commit | 88945cb8cd27a11295159cb85944d00180280d61 (patch) | |
| tree | b25ff270988310768753414580b88cedc496ca91 /perl-install/my_gtk.pm | |
| parent | 5889fd12bc1433d4500fc7349fe26bbc8a7a7548 (diff) | |
| download | drakx-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.pm | 4 |
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 } |