diff options
| author | Son Dinh <dinhs@objectcomputing.com> | 2022-07-13 10:58:09 -0500 |
|---|---|---|
| committer | Son Dinh <dinhs@objectcomputing.com> | 2022-07-13 10:58:09 -0500 |
| commit | 77ac4bba5873b30ea47f445262f78aa55985dacd (patch) | |
| tree | 4e5ca299bee26711f70c3cac3f87a66fae96fb4f /ACE | |
| parent | 0614b2a83398067a0b190613253241261ec7ab82 (diff) | |
| download | ATCD-77ac4bba5873b30ea47f445262f78aa55985dacd.tar.gz | |
Add header and footer for stuck stacks
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 3da986536fd..9a9a25e996c 100644 --- 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}) { |