From 79394f50ff91ce3b82fba7afb63d7ad84efea1a4 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 26 Sep 2007 10:52:48 +0000 Subject: don't report a non existant crash when run w/o --error --- perl-install/NEWS | 1 + perl-install/standalone/drakbug | 4 +--- 2 files changed, 2 insertions(+), 3 deletions(-) (limited to 'perl-install') diff --git a/perl-install/NEWS b/perl-install/NEWS index 7907f3b05..6a7cc6e3b 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,4 +1,5 @@ - drakbug + o don't report a non existant crash when run w/o --error o when unable to access X11, just print the backtrace on the console Version 10.4.210 - 24 September 2007, by Thierry Vignaud diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug index 210ace916..c786fa045 100755 --- a/perl-install/standalone/drakbug +++ b/perl-install/standalone/drakbug @@ -108,8 +108,7 @@ gtkadd($window->{window}, 1, create_scrolled_window( gtknew('TextView', editable => 0, height => 200, text => [ - if_($prog, $error ? - ( + if_($prog && $error, [ N("The \"%s\" program has crashed with the following error:", $prog), ], @@ -117,7 +116,6 @@ gtkadd($window->{window}, "\n\n " . join("\n ", split("\n", $error)) . "\n\n", { family => 'monospace' } ] - ) : [ N("The \"%s\" program has crashed.", $prog) . "\n\n" ] ), [ 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 lspcidrake -v, kernel version, and /proc/cpuinfo.", $wizard_name) -- cgit v1.2.1