From: Tony Cook <tony@develop-help.com>
Date: Sat, 26 Aug 2017 03:54:38 +0000 (+1000)
Subject: [perl #131938] allocate stack space for results in i_errors()
X-Git-Tag: v1.006~2
X-Git-Url: http://git.imager.perl.org/imager.git/commitdiff_plain/57bbbbe782e6e67c203c2248a2eed7f9cde3d970

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

diff --git a/Imager.xs b/Imager.xs
index 5919d11d..a69fec9e 100644
--- 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;
 	}