From 4c4518584c18382e52be10aca1e86ec8f8903453 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 5 Feb 2008 16:15:30 +0000 Subject: (search_dir_font) fix crashing on file names with meta characters (#36482) --- perl-install/standalone/drakfont | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone') 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")); -- cgit v1.2.1