From 6b2533b2540385390dc46596d3ef0587cdb720cb Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
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/standalone/drakfont | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/standalone/drakfont')

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