(file_ok_sel) prevent potential crash in perl regexp engine if sg bad

happenned in the translation

1 files changed, 1 insertions, 1 deletions

diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 57b672958..4c8a6ae09 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -722,7 +722,7 @@ sub font_choice() {
 sub file_ok_sel {
     my ($_widget, $file_selection) = @_;
     my $file_name = $file_selection->get_filename();
-    if ($file_name =~ /$select_font_msg/) {
+    if ($file_name =~ /\Q$select_font_msg/) {
         create_dialog(N("Error"), N("You've not selected any font"));
     } else {
         print "-- @install\n";