diff --git a/mysql-test/lib/My/CoreDump.pm b/mysql-test/lib/My/CoreDump.pm index 5f7427768c23f27966355c529f32bd47e6542e13..513226d1b47f1fae54ba5b7d42be38929922ce23 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";