fix typo in range check
authorminima <minima>
Fri, 14 Sep 2001 23:30:17 +0000 (23:30 +0000)
committerminima <minima>
Fri, 14 Sep 2001 23:30:17 +0000 (23:30 +0000)
cmd/blank.pl

index fb559a92ca75c9068bdddc749e797d35eeff5df3..ed3d585bab0d37e776255fe23801eaae8098729b 100644 (file)
@@ -17,7 +17,7 @@ if (@f && $f[0] !~ /^\d+$/) {
 }
 if (@f && $f[0] =~ /^\d+$/) {
        $lines = shift @f;
-       $lines = 9 if $lines < 9;
+       $lines = 9 if $lines > 9;
        $lines = 1 if $lines < 1;
 }
 my @out;