summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakbug
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2007-08-02 06:18:46 +0000
committerThierry Vignaud <tv@mandriva.org>2007-08-02 06:18:46 +0000
commitccb79dd69f08ec92076644f6cca9ca4a2f7ecb65 (patch)
treea338350497edd2dc4654eed26337c873c435ab93 /perl-install/standalone/drakbug
parent85130b92ccd6a286f5c23bcd4fc90ea29b3b3649 (diff)
downloaddrakx-ccb79dd69f08ec92076644f6cca9ca4a2f7ecb65.tar
drakx-ccb79dd69f08ec92076644f6cca9ca4a2f7ecb65.tar.gz
drakx-ccb79dd69f08ec92076644f6cca9ca4a2f7ecb65.tar.bz2
drakx-ccb79dd69f08ec92076644f6cca9ca4a2f7ecb65.tar.xz
drakx-ccb79dd69f08ec92076644f6cca9ca4a2f7ecb65.zip
display the program that actually crashed and the error message
Diffstat (limited to 'perl-install/standalone/drakbug')
-rwxr-xr-xperl-install/standalone/drakbug10
1 files changed, 9 insertions, 1 deletions
diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug
index b8ba268f2..35e8edb36 100755
--- a/perl-install/standalone/drakbug
+++ b/perl-install/standalone/drakbug
@@ -95,7 +95,15 @@ $comb_app->set_text("");
gtkadd($window->{window},
gtkpack_(Gtk2::VBox->new(0, 5),
0, gtknew('Title1', label => $mandrake_release),
- 0, gtkset_justify(Gtk2::WrappedLabel->new(formatAlaTeX(N("To submit a bug report, click on the report button. \nThis will open a web browser window on %s where you'll find a form to fill in. The information displayed above will be transferred to that server. \nThings useful to include in your report are the output of lspci, kernel version, and /proc/cpuinfo.", $wizard_name))), "left"),
+ 0, gtkset_justify(Gtk2::WrappedLabel->new(
+ formatAlaTeX(
+ join("\n\n",
+ if_($prog, $error ?
+ N("The \"%s\" program has crashed with the following error:", $prog)
+ . join("\n\n", "\n", split("\n", $error), '')
+ : N("The \"%s\" program has crashed.", $prog)
+ ),
+ N("To submit a bug report, click on the report button. \nThis will open a web browser window on %s where you'll find a form to fill in. The information displayed above will be transferred to that server. \nThings useful to include in your report are the output of lspci, kernel version, and /proc/cpuinfo.", $wizard_name)))), "left"),
0, gtkadd($table),
0, gtkpack(Gtk2::HSeparator->new),
0, gtkpack(create_hbox('edge'),