]> git.imager.perl.org - imager.git/blobdiff - Imager.xs
clean up some old junk in log.c
[imager.git] / Imager.xs
index 81918e8e888ffa79dab99fc31fd8687ae648914c..c47884ec541809af28ee2c1f4dc3b41a3f5acbea 100644 (file)
--- a/Imager.xs
+++ b/Imager.xs
@@ -2097,6 +2097,10 @@ i_convert(src, avmain)
              if (len > inchan)
                inchan = len;
            }
+           else {
+             i_push_errorf(0, "invalid matrix: element %d is not an array ref", j);
+             XSRETURN(0);
+           }
           }
           coeff = mymalloc(sizeof(double) * outchan * inchan);
          for (j = 0; j < outchan; ++j) {