(search_dir_font) fix crashing on file names with meta characters (#36482)

1 files changed, 2 insertions, 2 deletions

diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 9ed05beec..d244f2d1b 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -255,8 +255,8 @@ sub search_dir_font() {
                 }
             }
             elsif (is_a_font($fn)) {
-		!$replace && any { /$fn/ } @installed_fonts and next;
-		!any { /$fn/ } @installed_fonts and push @font_list, $fn;
+		!$replace && any { /\Q$fn\E/ } @installed_fonts and next;
+		!any { /\Q$fn\E/ } @installed_fonts and push @font_list, $fn;
 	    }
         }
         interactive_progress($pbar, 0.50 / @install, N("Reselect correct fonts"));