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/NEWS | 3 +++ perl-install/standalone/drakfont | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/NEWS b/perl-install/NEWS index 2892c535b..be93bb1ec 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,3 +1,6 @@ +- drakfont: + o fix enumerating fonts on old windows (#28016) + Version 10.4.133 - 05 June 2007, by Thierry Vignaud - bootloader-config: 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