From b1ec22fdf3c6be460b6759d79433e81fea593da3 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 18 Mar 2009 14:52:45 +0000
Subject: (get_top_of_trace,report_bug_to_bugzilla) add error to summary when
 crashing in order to help sort duplicates

---
 perl-install/standalone/drakbug | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'perl-install/standalone')

diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug
index d6cbdf6e3..9c2ae61ed 100755
--- a/perl-install/standalone/drakbug
+++ b/perl-install/standalone/drakbug
@@ -239,6 +239,12 @@ sub get_package {
     $rpm_package;
 }
 
+sub get_top_of_trace {
+    my ($error) = @_;
+    return if !$error;
+    sprintf(" (%s)", first(split(/\n/, $error)));
+}
+
 sub report_bug_to_bugzilla() {
     my $p = $package->get_text;
     my ($product, $version) = $p =~ /^(.*)-([^-]+-[^-]+(mdk|mdv.*))$/; # FIXME: fragile!
@@ -274,6 +280,7 @@ sub report_bug_to_bugzilla() {
                        if_($incident,
                            join('', "short_desc=$prog%20",
                                 ($segfaulted ? 'segfaulted' : 'crashed'),
+                                if_(!$gdb_trace, get_top_of_trace($error)),
                             ),
                        ),
                            'comment=' . uri_escape(
-- 
cgit v1.2.1