diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2009-03-18 14:52:45 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2009-03-18 14:52:45 +0000 |
| commit | b1ec22fdf3c6be460b6759d79433e81fea593da3 (patch) | |
| tree | e5ee6898dcaa5ec0331378e0588b43d71a657c80 /perl-install/standalone | |
| parent | e7f8db8df7f845ee162a63f17a6a3e2a7d4795ab (diff) | |
| download | drakx-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-x | perl-install/standalone/drakbug | 7 |
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( |