From b33afef4929ff11cdecad98a86c26addbd68e2c5 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 8 Feb 2006 20:46:40 +0000 Subject: (font_choice) enable to select fonts with upcase letters in file extensions (#16948) --- 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 c1e1ec9c2..c90a96b49 100755 --- a/perl-install/standalone/drakfont +++ b/perl-install/standalone/drakfont @@ -588,7 +588,7 @@ sub font_choice() { my $filter = Gtk2::FileFilter->new; $filter->set_name(N("Fonts")); - $filter->add_pattern("*.$_") foreach @font_extensions; + $filter->add_pattern("*.$_") foreach @font_extensions, map { uc($_) } @font_extensions; $file_dialog->add_filter($filter); $file_dialog->set_filter($filter); -- cgit v1.2.1