From cb92a44705d3c985c8c9530a3183edae4892ac05 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 6 Jun 2007 15:36:08 +0000
Subject: (search_windows_font) fix crash (#28016)

---
 perl-install/standalone/drakfont | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'perl-install/standalone/drakfont')

diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 3a8e1594e..33d200fb4 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -217,9 +217,10 @@ sub search_windows_font() {
                     }
                 }
                 !$replace && any { /$i/ } @installed_fonts and next;
+                my $subdir = $_->[1];
                 any { /$i$/ } @font_list or push @font_list,
-                  find { -e $_ } map { ("$win_dir/$_->[1]/fonts/$_",
-                                         "$win_dir/$_->[1]/Fonts/$_") } $i;
+                  grep { -e $_ } map { ("$win_dir/w$subdir/fonts/$_",
+                                         "$win_dir/$subdir/Fonts/$_") } $i;
             }
         }
         $interactive && $nb_dir and progress($pbar, 1, N("done"));
-- 
cgit v1.2.1