summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorDamien Chaumette <dchaumette@mandriva.com>2003-05-02 16:57:27 +0000
committerDamien Chaumette <dchaumette@mandriva.com>2003-05-02 16:57:27 +0000
commit35855e5ad6caa1c6b24666b208266ec64a8f341e (patch)
tree35cf3edae05b010f25713293da462b46b741ba78 /perl-install/standalone
parent35abd87e7555f2eee165971606590211f8494c0e (diff)
downloaddrakx-35855e5ad6caa1c6b24666b208266ec64a8f341e.tar
drakx-35855e5ad6caa1c6b24666b208266ec64a8f341e.tar.gz
drakx-35855e5ad6caa1c6b24666b208266ec64a8f341e.tar.bz2
drakx-35855e5ad6caa1c6b24666b208266ec64a8f341e.tar.xz
drakx-35855e5ad6caa1c6b24666b208266ec64a8f341e.zip
fix sucky fonction (thanks to master guillaume)
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakfont4
1 files changed, 2 insertions, 2 deletions
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