unicode: fix syntax error in selection row loop

diff --git a/unicode.plp b/unicode.plp
index edad58c0b6fa87ed1749fa1dead112300e58e2d1..a7d545992ac5247af24276413ddf29df8db3098e 100644 (file)
--- a/unicode.plp
+++ b/unicode.plp
@@ -149,7 +149,7 @@ $glyphs->print(map {
 
                if (@select) {
                        my $rowlen;
-                       for ($rowlen = 1; $rowlen++; $rowlen <= $#$table) {
+                       for ($rowlen = 1; $rowlen <= $#$table; $rowlen++) {
                                last if $table->[$rowlen] =~ /\./;
                        }
                        my @cells = map {