From 1037e14b3f9e2248dc063ef38dc868487f3e79c3 Mon Sep 17 00:00:00 2001
From: mertz
Date: Fri, 28 Nov 2003 09:40:47 +0000
Subject: a bug when no appropriate font is found

---
 Perl/t/text.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Perl')

diff --git a/Perl/t/text.t b/Perl/t/text.t
index 613348f..99798a5 100644
--- a/Perl/t/text.t
+++ b/Perl/t/text.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 #
-# $Id: text.t,v 1.2 2003-10-16 13:21:56 mertz Exp $
+# $Id: text.t,v 1.3 2003-11-28 09:40:47 mertz Exp $
 # Author: Christophe Mertz
 #
 
@@ -59,7 +59,7 @@ my $TEXT = "";
 my @families = $zinc->fontFamilies;
 #print "@families\n";
 
-my $family;
+my $family="";
 if ( grep /^verdana$/i , @families) {
     $family = "verdana";
 #    $family = "helvetica";
-- 
cgit v1.1