diff options
| -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"; |