Commit 660e5d21 authored by Magnus Svensson's avatar Magnus Svensson

Improve gdb coredump

parent 631b73a2
...@@ -25,6 +25,8 @@ use File::Temp qw/ tempfile tempdir /; ...@@ -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 { ...@@ -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 { ...@@ -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";
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment