summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2007-08-02 06:17:52 +0000
committerThierry Vignaud <tv@mandriva.org>2007-08-02 06:17:52 +0000
commitd7a404163ee60002025bdb6c6635e7f9f49c1dde (patch)
treef7a331b945b7896a09e5757dd8a7ffc8caa0798e /perl-install/standalone.pm
parent9e14915c1405a7e14302557e3347cc26a7f793fa (diff)
downloaddrakx-d7a404163ee60002025bdb6c6635e7f9f49c1dde.tar
drakx-d7a404163ee60002025bdb6c6635e7f9f49c1dde.tar.gz
drakx-d7a404163ee60002025bdb6c6635e7f9f49c1dde.tar.bz2
drakx-d7a404163ee60002025bdb6c6635e7f9f49c1dde.tar.xz
drakx-d7a404163ee60002025bdb6c6635e7f9f49c1dde.zip
(bug_handler) display full backtrace
Diffstat (limited to 'perl-install/standalone.pm')
-rw-r--r--perl-install/standalone.pm1
1 files changed, 1 insertions, 0 deletions
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,);