(search_windows_font) do not misbelieve a font is already installed if

substring of another font name (eg "l.ttf" wouldn't be installed if
"arial.ttf" was)

1 files changed, 2 insertions, 2 deletions

diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 160be714d..8fa77617e 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -216,9 +216,9 @@ sub search_windows_font() {
                         return 0;
                     }
                 }
-                !$replace && any { /$i/ } @installed_fonts and next;
+                !$replace && any { /^$i$/ } @installed_fonts and next;
                 my $subdir = $_->[1];
-                any { /$i$/ } @font_list or push @font_list,
+                any { /^$i$/ } @font_list or push @font_list,
                   grep { -e $_ } map { ("$win_dir/$subdir/fonts/$_",
                                          "$win_dir/$subdir/Fonts/$_") } $i;
             }