From 77ac4bba5873b30ea47f445262f78aa55985dacd Mon Sep 17 00:00:00 2001
From: Son Dinh <dinhs@objectcomputing.com>
Date: Wed, 13 Jul 2022 10:58:09 -0500
Subject: [PATCH] Add header and footer for stuck stacks

---
 ACE/bin/PerlACE/Process_Unix.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/ACE/bin/PerlACE/Process_Unix.pm b/ACE/bin/PerlACE/Process_Unix.pm
index 3da986536fdf9..9a9a25e996c16 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}) {