[perl #131938] allocate stack space for results in i_errors()
authorTony Cook <tony@develop-help.com>
Sat, 26 Aug 2017 03:54:38 +0000 (13:54 +1000)
committerTony Cook <tony@develop-help.com>
Sat, 26 Aug 2017 03:54:38 +0000 (13:54 +1000)
Imager.xs

index 5919d11..a69fec9 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;
        }