diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-10-01 14:44:23 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-10-01 14:44:23 +0000 |
| commit | a857623081234fa17d9f6447c995f4635b5f7672 (patch) | |
| tree | d5527a07fd5f3465f4de34cfee0d871eac2dba15 /perl-install/standalone/harddrake2 | |
| parent | 2bcf257104b6572bf0b940b1f06970588f8a1bad (diff) | |
| download | drakx-a857623081234fa17d9f6447c995f4635b5f7672.tar drakx-a857623081234fa17d9f6447c995f4635b5f7672.tar.gz drakx-a857623081234fa17d9f6447c995f4635b5f7672.tar.bz2 drakx-a857623081234fa17d9f6447c995f4635b5f7672.tar.xz drakx-a857623081234fa17d9f6447c995f4635b5f7672.zip | |
perl_checker
Diffstat (limited to 'perl-install/standalone/harddrake2')
| -rwxr-xr-x | perl-install/standalone/harddrake2 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2 index e9dbbdc72..b4bb9c606 100755 --- a/perl-install/standalone/harddrake2 +++ b/perl-install/standalone/harddrake2 @@ -109,7 +109,7 @@ my @menu_items = create_dialog(N("Harddrake help"), N("Description of the fields:\n\n") #-PO Do not alter the <span ..> and </span> tags - . join("\n\n", map { if_($fields{$_}[0], formatAlaTeX("<span foreground=\"royalblue3\">$fields{$_}[0]:</span> $fields{$_}[1]")) } sort keys %$current_device), { use_markup => 1, if_(!$::isEmbedded, transient => $w->{window}), height => 400, scroll => 1 }) + . join("\n\n", map { if_($fields{$_}[0], formatAlaTeX(qq(<span foreground="royalblue3">$fields{$_}[0]:</span> $fields{$_}[1]))) } sort keys %$current_device), { use_markup => 1, if_(!$::isEmbedded, transient => $w->{window}), height => 400, scroll => 1 }) } else { create_dialog(N("Select a device !"), N("Once you've selected a device, you'll be able to see the device information in fields displayed on the right frame (\"Information\")"), { if_(!$::isEmbedded, transient => $w->{window}) }) @@ -219,7 +219,7 @@ $tree->get_selection->signal_connect('changed' => sub { } sort keys %$current_device ]); foreach (keys %$current_device) { - print "Warning: skip \"$_\" field => \"$current_device->{$_}\"\n\n" unless $fields{$_}[0]; + print qq(Warning: skip "$_" field => "$current_device->{$_}"\n\n) unless $fields{$_}[0]; }; # if we've valid driver, let's offer to configure it, else hide buttons |