From 69772d4a6d5a625154c787a0bc69694de6e968a3 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 7 Feb 2002 13:20:47 +0000
Subject: (exit): ensure USR1 is sent to mcc

---
 perl-install/interactive_gtk.pm | 1 +
 1 file changed, 1 insertion(+)

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

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 
 }
 
-- 
cgit v1.2.1