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 8cb2836..613348f 100644 --- a/Perl/t/text.t +++ b/Perl/t/text.t @@ -1,7 +1,7 @@ #!/usr/bin/perl -w # -# $Id: text.t,v 1.1 2003-10-16 13:16:04 mertz Exp $ +# $Id: text.t,v 1.2 2003-10-16 13:21:56 mertz Exp $ # Author: Christophe Mertz # @@ -91,7 +91,7 @@ foreach my $size (9..60) { $zinc->update; # deleting both the font and the text item and recreating it 10 times - foreach my $count (1..-10) { + foreach my $count (1..10) { $zinc->fontDelete("font$size"); $zinc->remove('txt8'); $zinc->fontCreate("font$size", -family => $family, -size => -$size, -weight => 'normal'); |