Merge pull request #1884 from sonndinh/stuck_stacks

Add delimiters for stuck stacks report
DOCGroup · Jul 14, 2022 · d0747d4 · d0747d4
2 parents 0614b2a + 77ac4bb
commit d0747d4
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/ACE/bin/PerlACE/Process_Unix.pm b/ACE/bin/PerlACE/Process_Unix.pm
@@ -802,7 +802,9 @@ sub WaitKill ($;$)
 
             my $commands = ($debugger eq 'gdb') ?
               "-ex 'set pagination off' -ex 'thread apply all backtrace'" : "-o 'bt all'";
+            print STDERR "\n======= Begin stuck stacks =======\n";
             system "$debugger --batch -p $self->{PROCESS} $commands";
+            print STDERR "======= End stuck stacks =======\n";
         }
 
         if ($ENV{ACE_TEST_GENERATE_CORE_FILE}) {