From b841f2ace37096d420551a71bfc80882abbb5d65 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Mon, 6 Aug 2007 13:26:18 +0000
Subject: exceptions with "\n" are considered normal ways to quit and thus do
 not fire up drakbug (eg: #32292)

---
 perl-install/NEWS          | 3 +++
 perl-install/standalone.pm | 5 +++++
 2 files changed, 8 insertions(+)

(limited to 'perl-install')

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 5080afd2a..19a152f3b 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,6 @@
+- drakbug:
+  o exceptions with "\n" are considered normal ways to quit and thus
+    do not fire up drakbug (eg: #32292)
 - diskdrake:
   o restore progress bar when formatting ext3
 
diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm
index c20381911..d2035e469 100644
--- a/perl-install/standalone.pm
+++ b/perl-install/standalone.pm
@@ -191,6 +191,11 @@ sub bug_handler {
     my ($error) = @_;
     # exceptions in eval are OK:
     return if $error && $^S;
+    # exceptions with "\n" are normal ways to quit:
+    if ($error !~ /at line/) {
+        warn $error;
+        exit(255);
+    }
     # we want the full backtrace:
     $error .= common::backtrace() if $error;
     my $progname = $0;
-- 
cgit v1.2.1