Commit c84dfbbd authored by Magnus Svensson's avatar Magnus Svensson
Browse files

Improve gdb coredump

parent 2f5e9826

mysql-test/lib/My/CoreDump.pm

+5 −3
Original line number Diff line number Diff line
@@ -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";