diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakfont | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont index 97af4f1a4..5f85e347b 100755 --- a/perl-install/standalone/drakfont +++ b/perl-install/standalone/drakfont @@ -209,17 +209,12 @@ sub search_windows_font() { } } my $nb_dir = @fonts; + if (!$nb_dir) { + err_dialog(N("Error"), N("No fonts found")); + return 0; + } foreach my $font (@fonts) { - foreach my $i (@{ $_->[0] }) { - if ($interactive) { - if ($nb_dir) { - progress($pbar, 0.25 / $nb_dir, N("parse all fonts")); - } else { - err_dialog(N("Error"), N("No fonts found")); - return 0; - } - } - + progress($pbar, 0.25 / $nb_dir, N("parse all fonts")); my $font_name = basename($font); !$replace && any { /^$font_name$/ } @installed_fonts and next; any { /^$font_name$/ } @font_list or push @font_list, $font; |