summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-01-31 15:05:23 +0000
committerThierry Vignaud <tv@mandriva.org>2008-01-31 15:05:23 +0000
commit4e972c5d6018a5139a34d6282beade4813999280 (patch)
tree3aebaf12cdf42f3ffad8488bec972e0969362cee /perl-install
parent5f6ac0aee772f055565ee614e5dd3c0ba0b7a6b8 (diff)
downloaddrakx-backup-do-not-use-4e972c5d6018a5139a34d6282beade4813999280.tar
drakx-backup-do-not-use-4e972c5d6018a5139a34d6282beade4813999280.tar.gz
drakx-backup-do-not-use-4e972c5d6018a5139a34d6282beade4813999280.tar.bz2
drakx-backup-do-not-use-4e972c5d6018a5139a34d6282beade4813999280.tar.xz
drakx-backup-do-not-use-4e972c5d6018a5139a34d6282beade4813999280.zip
factorize a test
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakbug18
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)
]