diff options
| -rw-r--r-- | perl-install/interactive_gtk.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm index e42833f80..bd7ca88f8 100644 --- a/perl-install/interactive_gtk.pm +++ b/perl-install/interactive_gtk.pm @@ -22,6 +22,7 @@ sub leave_console { my ($o) = @_; common::setVirtual(delete $o->{suspended}) } sub exit { gtkset_mousecursor_normal(); #- for restoring a normal in any case on standalone my_gtk::flush(); + $::isEmbedded and kill 10, $::CCPID; #10 is USR1 c::_exit($_[1]) #- workaround } |