PNG re-work: collect more text tags

[imager.git] / bench / scalebench

diff --git a/bench/scalebench b/bench/scalebench
index 35baa2b735aeeba54c8e4724e91dd3c308d901c9..f163f7ee846bdcba91447619180af8d9abc9aa0b 100644 (file)
--- 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