diff options
| -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 |