diff options
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 } |