Image::Upload: Return error if ImageMagick fails to get image dimensions

The initial regex filetype check doesn't mean that it's a valid image.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib/VNWeb/Images/Upload.pm b/lib/VNWeb/Images/Upload.pm
index 4fbc6d64..dd5bbb4d 100644
--- a/lib/VNWeb/Images/Upload.pm
+++ b/lib/VNWeb/Images/Upload.pm
@@ -41,6 +41,7 @@ TUWF::post qr{/elm/ImageUpload.json}, sub {
     $im->Set(quality => 90);
 
     my($ow, $oh) = ($im->Get('width'), $im->Get('height'));
+    return elm_ImgFormat if !$ow || !$oh;
     my($nw, $nh) =
         $type eq 'ch' ? imgsize $ow, $oh, tuwf->{ch_size}->@* :
         $type eq 'cv' ? imgsize $ow, $oh, tuwf->{cv_size}->@* : ($ow, $oh);