summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-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 91bc045c5..bd1760f67 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -249,16 +249,6 @@ sub search_windows_font {
my @list_fonts_win = all("$win_dir/windows/fonts");
my @list_fonts_winnt = all("$win_dir/winnt/fonts");
my $nb_dir = @list_fonts_win + @list_fonts_winnt;
- if(!@list_fonts_win && !@list_fonts_winnt) {
- print "drakfont:: could not find any font in $win_dir/win*/fonts \n";
- $interactive and display_error(_("could not find any font in %s/win*/fonts", $win_dir));
- return 0;
- }
- if(!@list_fonts_win && !@list_fonts_winnt) {
- print "drakfont:: could not find any font in $win_dir/win*/fonts \n";
- $interactive and display_error(_("could not find any font in %s/win*/fonts", $win_dir));
- return 0;
- }
foreach $_ ([\@list_fonts_win, "windows"], [\@list_fonts_winnt, "winnt"]) {
foreach my $i (@{$_->[0]}) {
if($interactive) {
@@ -273,6 +263,11 @@ sub search_windows_font {
}
$interactive && $nb_dir and progress($pbar, 1/4, _("done"));
}
+ if(!@font_list) {
+ print "drakfont:: could not find any font in /win*/fonts \n";
+ $interactive and display_error(_("could not find any font in /win*/fonts"));
+ return 0;
+ }
1;
}