From 5450db41bb3f3a5c291caf4042d226b349821d2b Mon Sep 17 00:00:00 2001 From: "H. Peter Anvin" Date: Mon, 25 Apr 2011 12:22:21 -0700 Subject: 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 --- utils/ppmtolss16 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'utils') 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}++; -- cgit v1.2.1