From 22a0112f8d8420f104f06a15d914035d572eab34 Mon Sep 17 00:00:00 2001
From: Vladislav Vaintroub <vvaintroub@mysql.com>
Date: Thu, 2 Oct 2008 16:29:41 +0200
Subject: [PATCH] Bug #38629 mysql-test-run.pl --start-and-exit starts but does
 not exit Instead, it hangs with ActiveState perl. The error is believed to be
 a bug in ActiveState implementation. Workaround is using POSIX::_exit, as
 described here http://www.perlmonks.org/?node_id=334610

Thanks to Philip Stoev for the idea of the patch.
---
 mysql-test/mysql-test-run.pl | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/mysql-test/mysql-test-run.pl b/mysql-test/mysql-test-run.pl
index 7b9206f0dfd..268dd3fbd16 100755
--- a/mysql-test/mysql-test-run.pl
+++ b/mysql-test/mysql-test-run.pl
@@ -3505,7 +3505,16 @@ sub run_testcase ($) {
   {
     mtr_timer_stop_all($glob_timers);
     mtr_report("\nServers started, exiting");
-    exit(0);
+    if ($glob_win32_perl)
+    {
+      #ActiveState perl hangs  when using normal exit, use  POSIX::_exit instead
+      use POSIX qw[ _exit ]; 
+      POSIX::_exit(0);
+    }
+    else
+    {
+      exit(0);
+    }
   }
 
   {