database/mariadb
1
0
Fork 0
mirror of https://github.com/MariaDB/server.git synced 2025-07-30 16:24:05 +03:00
Code Activity

WL4189 Active state perl fixes

Browse Source
This commit is contained in:
Magnus Svensson
2008-10-08 20:25:28 +02:00
parent 87b91e547d
commit e75daedf17
3 changed files with 14 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
mysql-test/lib/My/SafeProcess.pm
View File

@ -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--){