aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhpa <hpa>2001-04-10 04:13:30 +0000
committerhpa <hpa>2001-04-10 04:13:30 +0000
commit9b8d2d368876abd5f61bc4d04662685379c6dbc9 (patch)
tree9c9cffe9b0a34725fddd178e4ccf5604a1881635
parent4b61beeb603e0c18d5383682dcd854041396430e (diff)
downloadsyslinux-elf-syslinux-1.60.tar.gz
syslinux-elf-syslinux-1.60.tar.xz
syslinux-elf-syslinux-1.60.zip
Use Perl constructs that are somewhat cleaner.syslinux-1.60
-rwxr-xr-xlss16toppm7
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;
}
}
}