From: Tony Cook <tony@develop=help.com>
Date: Thu, 13 Sep 2001 11:06:48 +0000 (+0000)
Subject: make it a bit more portable - old pnmscale complains
X-Git-Tag: Imager-0.48^2~572
X-Git-Url: http://git.imager.perl.org/imager.git/commitdiff_plain/d18c80f5d14e02dde2612c17c3e0a701368bd151

make it a bit more portable - old pnmscale complains
---

diff --git a/bench/scalebench b/bench/scalebench
index 35baa2b7..f163f7ee 100644
--- a/bench/scalebench
+++ b/bench/scalebench
@@ -3,6 +3,7 @@ mkdir med_res_imager
 mkdir icon_imager
 mkdir med_res_pnm
 mkdir icon_pnm
-pngtopnm <kscdisplay.png | cjpeg >kscdisplay.jpg
-time perl -Mblib=.. scale.perl kscdisplay.jpg
-time perl scale.sh.perl kscdisplay.jpg
+if perl -Mblib -MImager -e '$im = Imager->new()->read(file=>"kscdisplay.png")->convert(preset=>"noalpha")->write(file=>"kscdisplay.jpg") or die' ; then
+  time perl -Mblib=.. scale.perl kscdisplay.jpg
+  time perl scale.sh.perl kscdisplay.jpg
+fi
\ No newline at end of file