From f9c5392f0e8897a3a5023d46c57f855aece82ad9 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 6 Jun 2007 15:35:28 +0000 Subject: (search_windows_font) fix enumerating fonts on old windows (#28016) --- perl-install/standalone/drakfont | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont index 8b5715b06..3a8e1594e 100755 --- a/perl-install/standalone/drakfont +++ b/perl-install/standalone/drakfont @@ -201,7 +201,7 @@ sub search_installed_fonts_full_path() { sub search_windows_font() { foreach my $fstab_line (grep { /vfat|smbfs|ntfs|fuse/ } cat_('/etc/mtab')) { my $win_dir = (split('\s', $fstab_line))[1]; - my @list_fonts_win = all("$win_dir/windows/fonts"), all("$win_dir/WINDOWS/Fonts"); + my @list_fonts_win = (all("$win_dir/windows/fonts"), all("$win_dir/WINDOWS/Fonts")); my @list_fonts_winnt = all("$win_dir/winnt/fonts"); my $nb_dir = @list_fonts_win + @list_fonts_winnt; foreach ([ \@list_fonts_win, "windows" ], -- cgit v1.2.1