summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2007-11-06 16:15:45 +0000
committerThierry Vignaud <tv@mandriva.org>2007-11-06 16:15:45 +0000
commit66e19fe9b61a8d53df179c996ad19784c4bd3b97 (patch)
tree37ffc5bc472f1004b8c41911c48afe4b8af4f1d9 /perl-install
parent39efdd9473c4ced60f9b2a4b553ab041cb1d5169 (diff)
downloaddrakx-66e19fe9b61a8d53df179c996ad19784c4bd3b97.tar
drakx-66e19fe9b61a8d53df179c996ad19784c4bd3b97.tar.gz
drakx-66e19fe9b61a8d53df179c996ad19784c4bd3b97.tar.bz2
drakx-66e19fe9b61a8d53df179c996ad19784c4bd3b97.tar.xz
drakx-66e19fe9b61a8d53df179c996ad19784c4bd3b97.zip
adjust title when catching a segfault
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakbug5
1 files changed, 3 insertions, 2 deletions
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.