From c61516c381d5d6915c8d77e455ce5f707d20c0bb Mon Sep 17 00:00:00 2001
From: Magnus Svensson <msvensson@mysql.com>
Date: Mon, 6 Oct 2008 10:49:12 +0200
Subject: [PATCH] Improve gdb coredump

---
 mysql-test/lib/My/CoreDump.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/mysql-test/lib/My/CoreDump.pm b/mysql-test/lib/My/CoreDump.pm
index 5f7427768c2..513226d1b47 100644
--- a/mysql-test/lib/My/CoreDump.pm
+++ b/mysql-test/lib/My/CoreDump.pm
@@ -25,6 +25,8 @@ use File::Temp qw/ tempfile tempdir /;
 sub _gdb {
   my ($core_name)= @_;
 
+  print "\nTrying 'gdb' to get a backtrace\n";
+
   return unless -f $core_name;
 
   my $dir = tempdir( CLEANUP => 1 );
@@ -35,7 +37,7 @@ sub _gdb {
     "quit\n";
 
   # Find out name of binary that generated core
-  my $list= `gdb -c $core_name -x $tmp_name -q 2>&1`
+  my $list= `gdb -c $core_name -x $tmp_name -batch 2>&1`
     or return;
 
   my $binary;
@@ -47,9 +49,9 @@ sub _gdb {
 
   return unless $binary;
 
-  print "Generated by '$binary'\n";
+  print " - core generated by '$binary'\n";
 
-  my $list= `gdb $binary -c $core_name -x $tmp_name -q 2>&1`
+  my $list= `gdb $binary -c $core_name -x $tmp_name -batch 2>&1`
     or return;
 
   print $list, "\n";