diff options
| author | Magnus Svensson <msvensson@mysql.com> | 2008-10-08 20:25:28 +0200 |
|---|---|---|
| committer | Magnus Svensson <msvensson@mysql.com> | 2008-10-08 20:25:28 +0200 |
| commit | e75daedf17b0b589aeb5c8b79c02985be0a55a6c (patch) | |
| tree | cbdb687d1ce0287fe061296edf1e0b6ae47df686 /mysql-test/lib/My/SafeProcess.pm | |
| parent | 87b91e547d637c83e16f067d60a550c9bfcb0a6c (diff) | |
| download | mariadb-git-e75daedf17b0b589aeb5c8b79c02985be0a55a6c.tar.gz | |
WL4189 Active state perl fixes
Diffstat (limited to 'mysql-test/lib/My/SafeProcess.pm')
| -rw-r--r-- | mysql-test/lib/My/SafeProcess.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/mysql-test/lib/My/SafeProcess.pm b/mysql-test/lib/My/SafeProcess.pm index 83749514622..5ff51146071 100644 --- a/mysql-test/lib/My/SafeProcess.pm +++ b/mysql-test/lib/My/SafeProcess.pm @@ -212,6 +212,14 @@ sub timer { }; $0= "safe_timer($duration)"; + + if (IS_WIN32PERL){ + # Just a thread in same process + sleep($duration); + print STDERR "timer $$: expired after $duration seconds\n"; + exit(0); + } + my $count_down= $duration; while($count_down--){ |