From b18ac12c25dcb98cc553b38a4e614cb9e55fb94b Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 22 Nov 2011 20:35:27 +0000
Subject: include better C traces in reports

---
 perl-install/NEWS          | 1 +
 perl-install/standalone.pm | 7 +++++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 82f7e59f0..57ca3a00a 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,5 +1,6 @@
 - drakbug:
   o report the gtk+ theme in use (#3127) which explain some crashes (eg: #2679)
+  o include better C traces in reports
 
 Version 13.6 - 10 November 2011
 
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;
 
-- 
cgit v1.2.1