From: hpa <hpa>
Date: Tue, 10 Apr 2001 04:13:30 +0000 (+0000)
Subject: Use Perl constructs that are somewhat cleaner.
X-Git-Tag: syslinux-3.11~845
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=9b8d2d368876abd5f61bc4d04662685379c6dbc9;p=platform%2Fupstream%2Fsyslinux.git

Use Perl constructs that are somewhat cleaner.
---

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