From 66e19fe9b61a8d53df179c996ad19784c4bd3b97 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 6 Nov 2007 16:15:45 +0000 Subject: adjust title when catching a segfault --- perl-install/standalone/drakbug | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug index d2f55b05a..2d02cb617 100755 --- a/perl-install/standalone/drakbug +++ b/perl-install/standalone/drakbug @@ -44,7 +44,8 @@ foreach (@ARGV) { /^--incident$/ and do { $incident = 1; $prog = splice(@ARGV, $i, 1) }; } -if ($error =~ /SEGV/ && -x '/usr/bin/gdb') { +my $segfaulted = $error =~ /SEGV/; +if ($segfaulted && -x '/usr/bin/gdb') { local $ENV{TMP} ||= '/tmp'; my $file = chomp_(`mktemp $ENV{TMP}/drakbug.XXXXXXXX`); my $_guard = before_leaving { rm_rf $file }; @@ -170,7 +171,7 @@ gtkadd($window->{window}, 'component=Core%20Packages', 'classification=Mandriva%20Linux', if_($prog, - "short_desc=$prog%20crashed", + "short_desc=$prog%20" . ($segfaulted ? 'segfaulted' : 'crashed'), 'comment=' . uri_escape(qq(The "$prog" program crashed. Drakbug-$rel catched it. Please describe what you were doing when it crashed. -- cgit v1.2.1