aboutsummaryrefslogtreecommitdiffstats
path: root/utils
diff options
context:
space:
mode:
authorH. Peter Anvin <hpa@zytor.com>2011-04-25 12:22:21 -0700
committerH. Peter Anvin <hpa@zytor.com>2011-04-25 12:22:21 -0700
commit5450db41bb3f3a5c291caf4042d226b349821d2b (patch)
treefc9a0312451aee3cedf939a194cf1465e346fd0a /utils
parentece69c7abc5b24523251e22a077951f2111311ad (diff)
downloadsyslinux-5450db41bb3f3a5c291caf4042d226b349821d2b.tar.gz
syslinux-5450db41bb3f3a5c291caf4042d226b349821d2b.tar.xz
syslinux-5450db41bb3f3a5c291caf4042d226b349821d2b.zip
ppmtolss16: remove obsolete Perl construct
defined() on an array is considered obsolete; instead check for a nonzero number of elements with scalar(). Signed-off-by: H. Peter Anvin <hpa@zytor.com>
Diffstat (limited to 'utils')
-rwxr-xr-xutils/ppmtolss162
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/ppmtolss16 b/utils/ppmtolss16
index 5af90831..ae2d546d 100755
--- a/utils/ppmtolss16
+++ b/utils/ppmtolss16
@@ -229,7 +229,7 @@ for ( $y = 0 ; $y < $ysize ; $y++ ) {
start_new_row();
for ( $x = 0 ; $x < $xsize ; $x++ ) {
die "$0: Premature EOF at ($x,$y) of ($xsize,$ysize)\n"
- if ( !defined(@pnmrgb = getrgb($form)) );
+ if ( !scalar(@pnmrgb = getrgb($form)) );
# Convert to 6-bit representation
$rgb = rgbconvert($pnmrgb[0], $pnmrgb[1], $pnmrgb[2], $maxmult);
$color_count{$rgb}++;