1berry/MariaDB-server
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Improve gdb coredump

Browse Source
This commit is contained in:
Magnus Svensson 2008-10-06 10:49:12 +02:00
parent b8413de10d
commit c61516c381
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
mysql-test/lib/My/CoreDump.pm
View File

@ -25,6 +25,8 @@ use File::Temp qw/ tempfile tempdir /;
sub _gdb { sub _gdb {
my ($core_name)= @_; my ($core_name)= @_;
print "\nTrying 'gdb' to get a backtrace\n";
return unless -f $core_name; return unless -f $core_name;
my $dir = tempdir( CLEANUP => 1 ); my $dir = tempdir( CLEANUP => 1 );
@ -35,7 +37,7 @@ sub _gdb {
"quit\n"; "quit\n";
# Find out name of binary that generated core # 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; or return;
my $binary; my $binary;
@ -47,9 +49,9 @@ sub _gdb {
return unless $binary; 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; or return;
print $list, "\n"; print $list, "\n";