diff options
author | Thierry Vignaud <tv@mandriva.org> | 2008-01-31 15:05:23 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mandriva.org> | 2008-01-31 15:05:23 +0000 |
commit | 4e972c5d6018a5139a34d6282beade4813999280 (patch) | |
tree | 3aebaf12cdf42f3ffad8488bec972e0969362cee /perl-install | |
parent | 5f6ac0aee772f055565ee614e5dd3c0ba0b7a6b8 (diff) | |
download | drakx-4e972c5d6018a5139a34d6282beade4813999280.tar drakx-4e972c5d6018a5139a34d6282beade4813999280.tar.gz drakx-4e972c5d6018a5139a34d6282beade4813999280.tar.bz2 drakx-4e972c5d6018a5139a34d6282beade4813999280.tar.xz drakx-4e972c5d6018a5139a34d6282beade4813999280.zip |
factorize a test
Diffstat (limited to 'perl-install')
-rwxr-xr-x | perl-install/standalone/drakbug | 18 |
1 files changed, 10 insertions, 8 deletions
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) ] |