Commit d18f67bb authored by sayantan dutta's avatar sayantan dutta

Bug #17926328 - MTR SHOULD NOT WAIT FOR CHILDREN WHEN ABORTING TEST RUN ON WINDOWS

parent 42bfa908
#!/usr/bin/perl #!/usr/bin/perl
# -*- cperl -*- # -*- cperl -*-
# Copyright (c) 2004, 2013, Oracle and/or its affiliates. All rights reserved. # Copyright (c) 2004, 2014, Oracle and/or its affiliates. All rights reserved.
# #
# This program is free software; you can redistribute it and/or modify # This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by # it under the terms of the GNU General Public License as published by
...@@ -474,7 +474,8 @@ sub main { ...@@ -474,7 +474,8 @@ sub main {
# Send Ctrl-C to any children still running # Send Ctrl-C to any children still running
kill("INT", keys(%children)); kill("INT", keys(%children));
# Wait for childs to exit if (!IS_WINDOWS) {
# Wait for children to exit
foreach my $pid (keys %children) foreach my $pid (keys %children)
{ {
my $ret_pid= waitpid($pid, 0); my $ret_pid= waitpid($pid, 0);
...@@ -485,6 +486,7 @@ sub main { ...@@ -485,6 +486,7 @@ sub main {
delete $children{$ret_pid}; delete $children{$ret_pid};
} }
} }
}
if ( not defined @$completed ) { if ( not defined @$completed ) {
mtr_error("Test suite aborted"); mtr_error("Test suite aborted");
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment