diff options
| author | Damien Chaumette <dchaumette@mandriva.com> | 2003-05-02 16:57:27 +0000 |
|---|---|---|
| committer | Damien Chaumette <dchaumette@mandriva.com> | 2003-05-02 16:57:27 +0000 |
| commit | 35855e5ad6caa1c6b24666b208266ec64a8f341e (patch) | |
| tree | 35cf3edae05b010f25713293da462b46b741ba78 /perl-install | |
| parent | 35abd87e7555f2eee165971606590211f8494c0e (diff) | |
| download | drakx-backup-do-not-use-35855e5ad6caa1c6b24666b208266ec64a8f341e.tar drakx-backup-do-not-use-35855e5ad6caa1c6b24666b208266ec64a8f341e.tar.gz drakx-backup-do-not-use-35855e5ad6caa1c6b24666b208266ec64a8f341e.tar.bz2 drakx-backup-do-not-use-35855e5ad6caa1c6b24666b208266ec64a8f341e.tar.xz drakx-backup-do-not-use-35855e5ad6caa1c6b24666b208266ec64a8f341e.zip | |
fix sucky fonction (thanks to master guillaume)
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakfont | 4 |
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 |