Use Perl constructs that are somewhat cleaner.syslinux-1.60

1 files changed, 2 insertions, 5 deletions

diff --git a/lss16toppm b/lss16toppm
index 8a9d59cd..1e1bbbac 100755
--- 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;
 	}
     }
 }