summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2007-08-02 18:15:54 +0000
committerThierry Vignaud <tv@mandriva.org>2007-08-02 18:15:54 +0000
commit940bbcc971d24a52fb78078b311877eec5cff80d (patch)
tree76068a5ac037282d5370c4123ad3845c0dddab64 /perl-install
parent8ef30465f259b9551522c2f51bb77daa13c241ac (diff)
downloaddrakx-940bbcc971d24a52fb78078b311877eec5cff80d.tar
drakx-940bbcc971d24a52fb78078b311877eec5cff80d.tar.gz
drakx-940bbcc971d24a52fb78078b311877eec5cff80d.tar.bz2
drakx-940bbcc971d24a52fb78078b311877eec5cff80d.tar.xz
drakx-940bbcc971d24a52fb78078b311877eec5cff80d.zip
(bug_handler) explain
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/standalone.pm3
1 files changed, 3 insertions, 0 deletions
diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm
index dc8339662..7e86c1d7a 100644
--- a/perl-install/standalone.pm
+++ b/perl-install/standalone.pm
@@ -189,9 +189,12 @@ our @drakx_modules = qw(Xconfig::card Xconfig::default Xconfig::main Xconfig::mo
sub bug_handler {
my ($error) = @_;
+ # exceptions in eval are OK:
return if $error && $^S;
+ # we want the full backtrace:
$error .= common::backtrace() if $error;
my $progname = $0;
+ # do not loop if drakbug crashes:
if ($progname =~ /drakbug/) {
warn $error;
exit(1);