From 4e972c5d6018a5139a34d6282beade4813999280 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 31 Jan 2008 15:05:23 +0000 Subject: factorize a test --- perl-install/standalone/drakbug | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) (limited to 'perl-install') diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug index 37d193472..1af242349 100755 --- a/perl-install/standalone/drakbug +++ b/perl-install/standalone/drakbug @@ -135,14 +135,16 @@ gtkadd($window->{window}, 1, create_scrolled_window( gtknew('TextView', editable => 0, height => 200, text => [ - if_($prog && $error, - format_trace_with_message( - ($gdb_trace ? - N("The \"%s\" program has segfaulted with the following error:", $prog) - : N("The \"%s\" program has crashed with the following error:", $prog)), - $error) - ), - if_($prog && $gdb_trace, format_trace_with_message(N("Its gdb trace is:"), $gdb_trace)), + if_($prog, + if_($error, + format_trace_with_message( + ($gdb_trace ? + N("The \"%s\" program has segfaulted with the following error:", $prog) + : N("The \"%s\" program has crashed with the following error:", $prog)), + $error) + ), + if_($gdb_trace, format_trace_with_message(N("Its gdb trace is:"), $gdb_trace)), + ), [ 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