From 35855e5ad6caa1c6b24666b208266ec64a8f341e Mon Sep 17 00:00:00 2001
From: Damien Chaumette <dchaumette@mandriva.com>
Date: Fri, 2 May 2003 16:57:27 +0000
Subject: fix sucky fonction (thanks to master guillaume)

---
 perl-install/standalone/drakfont | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index e7587a65f..9ecfccee4 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -259,8 +259,8 @@ sub search_windows_font() {
 }
 
 sub is_a_font($) {
-    local ($_) = @_;
-    /\.ttf$/i || /\.pfa$/i || /\.pfb$/i || /\.pcf$/i || /\.pcf\.gz$/i || /\.pfm$/i || /\.gsf$/;
+    my ($file) = @_;
+    any { $file =~ /\Q.$_\E$/i } qw(ttf pfa pfb pcf pcf.gz pfm gsf); 
 }
 
 # Optimisation de cette etape indispensable
-- 
cgit v1.2.1