diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2007-11-06 16:15:45 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2007-11-06 16:15:45 +0000 |
| commit | 66e19fe9b61a8d53df179c996ad19784c4bd3b97 (patch) | |
| tree | 37ffc5bc472f1004b8c41911c48afe4b8af4f1d9 /perl-install/standalone/drakbug | |
| parent | 39efdd9473c4ced60f9b2a4b553ab041cb1d5169 (diff) | |
| download | drakx-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/standalone/drakbug')
| -rwxr-xr-x | perl-install/standalone/drakbug | 5 |
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. |