X-Git-Url: http://git.imager.perl.org/imager.git/blobdiff_plain/4922fb3af8a9a1f4f594cab0bac45230ff270906..4c33a593b81cd7e9c4cf810498f22eddb399d8f4:/GIF/GIF.xs

diff --git a/GIF/GIF.xs b/GIF/GIF.xs
index 75687b82..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
@@ -147,3 +146,4 @@ i_readgif_multi_wiol(ig)
 BOOT:
 	PERL_INITIALIZE_IMAGER_CALLBACKS;
 	PERL_INITIALIZE_IMAGER_PERL_CALLBACKS;
+	i_init_gif();