From abaa2334ba2c5e9ae8bd7205e2607113fa3c732d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 20 May 2003 09:55:46 +0000
Subject: (file_ok_sel) prevent potential crash in perl regexp engine if sg bad
 happenned in the translation

---
 perl-install/standalone/drakfont | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

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";
-- 
cgit v1.2.1