diff options
author | mertz | 2003-11-28 09:40:47 +0000 |
---|---|---|
committer | mertz | 2003-11-28 09:40:47 +0000 |
commit | 1037e14b3f9e2248dc063ef38dc868487f3e79c3 (patch) | |
tree | 28e0aae42557d9f7a69d2bff9484b07af3e8b361 /Perl | |
parent | 935e98f355ed8cdd531446d6630217203a269986 (diff) | |
download | tkzinc-1037e14b3f9e2248dc063ef38dc868487f3e79c3.zip tkzinc-1037e14b3f9e2248dc063ef38dc868487f3e79c3.tar.gz tkzinc-1037e14b3f9e2248dc063ef38dc868487f3e79c3.tar.bz2 tkzinc-1037e14b3f9e2248dc063ef38dc868487f3e79c3.tar.xz |
a bug when no appropriate font is found
Diffstat (limited to 'Perl')
-rw-r--r-- | Perl/t/text.t | 4 |
1 files changed, 2 insertions, 2 deletions
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"; |