diff options
| author | Adam Mitz <mitza@objectcomputing.com> | 2022-07-15 08:30:56 -0500 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-07-15 08:30:56 -0500 |
| commit | b9e4a9a92a619f5eba4bbf0dce154edb005dbab8 (patch) | |
| tree | ffa62809a6ff9530e5df9c6621482b4282ac148e /ACE | |
| parent | f94bdbc8fd6ae29e2f2b998f27fbacb03ca8f6d0 (diff) | |
| parent | 2f757b8bea56e2ca31c24507e8a1685c13733e13 (diff) | |
| download | ATCD-b9e4a9a92a619f5eba4bbf0dce154edb005dbab8.tar.gz | |
Merge pull request #1885 from sonndinh/stuck_stacks_master
Add delimiters for stuck stacks report
Diffstat (limited to 'ACE')
| -rw-r--r-- | ACE/bin/PerlACE/Process_Unix.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ACE/bin/PerlACE/Process_Unix.pm b/ACE/bin/PerlACE/Process_Unix.pm index d8e753a2161..435982c4bb8 100644 --- a/ACE/bin/PerlACE/Process_Unix.pm +++ b/ACE/bin/PerlACE/Process_Unix.pm @@ -794,7 +794,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}) { |