diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2014-06-26 22:33:57 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2014-06-26 22:33:57 +0200 |
| commit | 6b2533b2540385390dc46596d3ef0587cdb720cb (patch) | |
| tree | 62e2536d916720894551e5b04a26d5a2aa3f2078 /perl-install/standalone/drakfont | |
| parent | 0543d35bddd179a96f3ff88bd1103ca392087788 (diff) | |
| download | drakx-6b2533b2540385390dc46596d3ef0587cdb720cb.tar drakx-6b2533b2540385390dc46596d3ef0587cdb720cb.tar.gz drakx-6b2533b2540385390dc46596d3ef0587cdb720cb.tar.bz2 drakx-6b2533b2540385390dc46596d3ef0587cdb720cb.tar.xz drakx-6b2533b2540385390dc46596d3ef0587cdb720cb.zip | |
fix installing fonts (Frédéric Buclin, mga#11849)
fallout from gtk2 -> gtk3 switch
get_filenames() now returns an arrayref instead of a list.
Diffstat (limited to 'perl-install/standalone/drakfont')
| -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 68e4c67eb..ba9e17ab0 100755 --- a/perl-install/standalone/drakfont +++ b/perl-install/standalone/drakfont @@ -582,8 +582,8 @@ sub font_choice() { $file_dialog->destroy; return; } elsif ($answer eq 'ok') { - my @files = $file_dialog->get_filenames; - foreach my $file_name (difference2(\@files, \@install)) { + my $files = $file_dialog->get_filenames; + foreach my $file_name (difference2($files, \@install)) { push @install, $file_name; $model->append_set(undef, [ 0 => $file_name ]); } |