From 940bbcc971d24a52fb78078b311877eec5cff80d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Thu, 2 Aug 2007 18:15:54 +0000
Subject: (bug_handler) explain

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

(limited to 'perl-install')

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);
-- 
cgit v1.2.1