From 8786b92037f7c9b0b4c3fa5cb3e0897351892a57 Mon Sep 17 00:00:00 2001
From: Stephan Kulow <coolo@suse.de>
Date: Thu, 16 Jun 2016 12:48:08 +0200
Subject: [PATCH] Fix the backend exiting - exit is going back to perl, we want
 to kill it

---
 backend/baseclass.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/backend/baseclass.pm b/backend/baseclass.pm
index aa7d7822351..f516bbc2f5b 100644
--- a/backend/baseclass.pm
+++ b/backend/baseclass.pm
@@ -23,6 +23,7 @@ use JSON qw( to_json );
 use File::Copy qw(cp);
 use File::Basename;
 use Time::HiRes qw(gettimeofday tv_interval);
+use POSIX qw(_exit);
 use bmwqemu;
 use IO::Select;
 require IPC::System::Simple;
@@ -417,7 +418,7 @@ sub close_pipes {
     print "sending magic and exit\n";
     $self->{rsppipe}->print('{"QUIT":1}');
     close($self->{rsppipe}) || die "close $!\n";
-    exit(0);
+    _exit(0);
 }
 
 # this is called for all sockets ready to read from