summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone')
-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.