aboutsummaryrefslogtreecommitdiff
path: root/Perl/t
diff options
context:
space:
mode:
Diffstat (limited to 'Perl/t')
-rw-r--r--Perl/t/text.t4
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');