summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2009-03-18 14:52:45 +0000
committerThierry Vignaud <tv@mandriva.org>2009-03-18 14:52:45 +0000
commitb1ec22fdf3c6be460b6759d79433e81fea593da3 (patch)
treee5ee6898dcaa5ec0331378e0588b43d71a657c80 /perl-install/standalone
parente7f8db8df7f845ee162a63f17a6a3e2a7d4795ab (diff)
downloaddrakx-b1ec22fdf3c6be460b6759d79433e81fea593da3.tar
drakx-b1ec22fdf3c6be460b6759d79433e81fea593da3.tar.gz
drakx-b1ec22fdf3c6be460b6759d79433e81fea593da3.tar.bz2
drakx-b1ec22fdf3c6be460b6759d79433e81fea593da3.tar.xz
drakx-b1ec22fdf3c6be460b6759d79433e81fea593da3.zip
(get_top_of_trace,report_bug_to_bugzilla) add error to summary when
crashing in order to help sort duplicates
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakbug7
1 files changed, 7 insertions, 0 deletions
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(