From 8726e6dd60ee00abff6cb6a581f749158ca9dc7e Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 8 Nov 2013 03:46:25 +0100
Subject: prevent set_active() to be called with undef parameter

---
 perl-install/standalone/drakfont | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index f52f2a538..49a871b7c 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -100,9 +100,9 @@ $ugtk3::wm_icon = "drakfont";
 my $xlsfonts = 0;
 my $windows  = 0;
 my $replace;
-my $so      = -f '/usr/bin/ooffice';
-my $gs      = -f '/usr/bin/gs';
-my $abi     = -f '/usr/bin/abiword';
+my $so      = to_bool(-f '/usr/bin/ooffice');
+my $gs      = to_bool(-f '/usr/bin/gs');
+my $abi     = to_bool(-f '/usr/bin/abiword');
 my $printer = 1;
 my $mode    = -1;
 my @application;
-- 
cgit v1.2.1