summaryrefslogtreecommitdiffstats
path: root/perl-install
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
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')
-rw-r--r--perl-install/NEWS1
-rw-r--r--perl-install/standalone.pm1
2 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index c8fffb6a3..2a888756c 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,5 +1,6 @@
- drakbug:
o do not fire on exceptions in eval { }
+ o put full backtrace on bugzilla, not only last call point
Version 10.4.152 - 01 August 2007, by Thierry Vignaud
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,);