a loop was stupidly never executed due to some devel. tests

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');