make it a bit more portable - old pnmscale complains
authorTony Cook <tony@develop=help.com>
Thu, 13 Sep 2001 11:06:48 +0000 (11:06 +0000)
committerTony Cook <tony@develop=help.com>
Thu, 13 Sep 2001 11:06:48 +0000 (11:06 +0000)
bench/scalebench

index 35baa2b..f163f7e 100644 (file)
@@ -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