summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakfont15
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;