attempt to fix perl hangs and print some info (#7673)

.CI/common.groovy

@@ -79,7 +79,7 @@ void partest(cache=true, extraArgs='') {
      echo export OPENMODELICAHOME="\${MSYS_WORKSPACE}/build"
      echo export OPENMODELICALIBRARY="${MSYS_WORKSPACE}\\build\\lib\\omlibrary"
      echo cd ${MSYS_WORKSPACE}/testsuite/partest
-     echo time perl ./runtests.pl -j8 -nocolour -with-xml
+     echo time perl ./runtests.pl -nocolour -with-xml
      echo CODE=\$?
      echo if test "\$CODE\" = 0 -o "\$CODE" = 7; then
      echo   cp -f ../runtest.db.* "${env.RUNTESTDB}/"

testsuite/partest/runtests.pl

@@ -323,6 +323,9 @@ sub run_tests {
   $test_queue->enqueue($_);
 }
 
+# Signal that there is no more work to be sent
+$test_queue->end();
+
 # Check if we can open /proc/cpuinfo to see how many cores are available, and
 # use that many threads instead.
 if ($check_proc_cpu) {
@@ -361,8 +364,10 @@ sub run_tests {
 # Wait for the tests to finish.
 foreach my $thr (threads->list()) {
   $thr->join();
+  print "{joined thread: " . $thr->tid() . "}"
 }
 
+
 # Print out the list of tests that failed, and a summary of how many failed.
 print color 'reset';
 print "\n";