[perl #131938] allocate stack space for results in i_errors()

diff --git a/Imager.xs b/Imager.xs
index 5919d11db09111ec727f02bf562e101a578313be..a69fec9eb3c6a1bfc72aeec4cf1b577c13d011a6 100644 (file)
--- a/Imager.xs
+++ b/Imager.xs
@@ -2994,7 +2994,7 @@ i_errors()
          if (!av_store(av, 1, sv)) {
            SvREFCNT_dec(sv);
          }
-         PUSHs(sv_2mortal(newRV_noinc((SV*)av)));
+         XPUSHs(sv_2mortal(newRV_noinc((SV*)av)));
          ++i;
        }