summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2006-02-08 20:46:40 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2006-02-08 20:46:40 +0000
commitb33afef4929ff11cdecad98a86c26addbd68e2c5 (patch)
tree4bdc9b351721b29e8391609e8c9982b5df576a90 /perl-install
parentb82e8b902e12beea0b6868954e427b4c3f21763d (diff)
downloaddrakx-b33afef4929ff11cdecad98a86c26addbd68e2c5.tar
drakx-b33afef4929ff11cdecad98a86c26addbd68e2c5.tar.gz
drakx-b33afef4929ff11cdecad98a86c26addbd68e2c5.tar.bz2
drakx-b33afef4929ff11cdecad98a86c26addbd68e2c5.tar.xz
drakx-b33afef4929ff11cdecad98a86c26addbd68e2c5.zip
(font_choice) enable to select fonts with upcase letters in file extensions (#16948)
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakfont2
1 files changed, 1 insertions, 1 deletions
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);