X-Git-Url: http://git.imager.perl.org/imager.git/blobdiff_plain/536b7775d38121ba00fc22d4140dee1719fb704f..1facb3575fe6775d0176eb6fa0b74fa87df9042a:/GIF/GIF.xs

diff --git a/GIF/GIF.xs b/GIF/GIF.xs
index 7641b8c3..c547c554 100644
--- a/GIF/GIF.xs
+++ b/GIF/GIF.xs
@@ -65,10 +65,9 @@ i_writegif_wiol(ig, opts,...)
 	    ip_copy_colors_back(aTHX_ hv, &quant);
           }
 	}
-	ST(0) = sv_newmortal();
-	if (RETVAL == 0) ST(0)=&PL_sv_undef;
-	else sv_setiv(ST(0), (IV)RETVAL);
 	ip_cleanup_quant_opts(aTHX_ &quant);
+    OUTPUT:
+  	RETVAL
 
 
 void