From d7a404163ee60002025bdb6c6635e7f9f49c1dde Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Thu, 2 Aug 2007 06:17:52 +0000
Subject: (bug_handler) display full backtrace

---
 perl-install/standalone.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/standalone.pm')

diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm
index 4de0474fb..32255665e 100644
--- a/perl-install/standalone.pm
+++ b/perl-install/standalone.pm
@@ -187,6 +187,7 @@ our @drakx_modules = qw(Xconfig::card Xconfig::default Xconfig::main Xconfig::mo
 sub bug_handler {
     my ($error) = @_;
     return if $error && $^S;
+    $error .= common::backtrace() if $error;
     my $progname = $0;
     $progname =~ s|.*/||;
     exec('drakbug',  if_($error, '--error', $error), '--incident', $progname,);
-- 
cgit v1.2.1