summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2011-11-22 20:35:27 +0000
committerThierry Vignaud <tv@mageia.org>2011-11-22 20:35:27 +0000
commit270ea42ae6d6b28d90c97ad3f5b735c50e8b107f (patch)
tree01dd80598b7583829bf8d32b6fb58c7d9e0cfa65 /perl-install/standalone.pm
parent9b8c0657d644440e3625167baf327d6b06f5b546 (diff)
downloaddrakx-270ea42ae6d6b28d90c97ad3f5b735c50e8b107f.tar
drakx-270ea42ae6d6b28d90c97ad3f5b735c50e8b107f.tar.gz
drakx-270ea42ae6d6b28d90c97ad3f5b735c50e8b107f.tar.bz2
drakx-270ea42ae6d6b28d90c97ad3f5b735c50e8b107f.tar.xz
drakx-270ea42ae6d6b28d90c97ad3f5b735c50e8b107f.zip
include better C traces in reports
Diffstat (limited to 'perl-install/standalone.pm')
-rw-r--r--perl-install/standalone.pm7
1 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm
index 2dd530254..fdf659df9 100644
--- a/perl-install/standalone.pm
+++ b/perl-install/standalone.pm
@@ -201,8 +201,11 @@ sub bug_handler {
}
# we want the full backtrace:
- $error .= "\n" if $is_signal;
- $error .= common::backtrace() if $error;
+ if ($is_signal) {
+ my $ctrace = c::C_backtrace();
+ $error .= "\nGlibc's trace:\n$ctrace\n";
+ }
+ $error .= "Perl's trace:\n". common::backtrace() if $error;
my $progname = $0;