From 6b2533b2540385390dc46596d3ef0587cdb720cb Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 26 Jun 2014 22:33:57 +0200 Subject: =?UTF-8?q?fix=20installing=20fonts=20(Fr=C3=A9d=C3=A9ric=20Buclin?= =?UTF-8?q?,=20mga#11849)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit fallout from gtk2 -> gtk3 switch get_filenames() now returns an arrayref instead of a list. --- perl-install/NEWS | 2 ++ perl-install/standalone/drakfont | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/NEWS b/perl-install/NEWS index c8de3696c..3941f696f 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -3,6 +3,8 @@ - drakclock: o fix crash on clicking "Cancel" after TZ selection (mga#13534) o fix loosing TZ choice when canceling TZ selection (mga#13534) +- drakfont: + o fix installing fonts (Frédéric Buclin, mga#11849) Version 16.33 - 18 June 2014 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 ]); } -- cgit v1.2.1