Use Perl constructs that are somewhat cleaner.

diff --git a/lss16toppm b/lss16toppm
index 8a9d59c..1e1bbba 100755 (executable)
--- a/lss16toppm
+++ b/lss16toppm
@@ -101,11 +101,8 @@ for ( $y = 0 ; $y < $ysize ; $y++ ) {
            # Truncate overlong runs
            $c = $xsize-$x if ( $c > $xsize-$x );
            # Output run
-           while ( $c ) {
-               print $color{$n};
-               $c--;
-               $x++;
-           }
+           print $color{$n} x $c;
+           $x += $c;
        }
     }
 }