add write failure diagnostics for 250-draw/010-draw.t

[imager.git] / GIF / GIF.xs

diff --git a/GIF/GIF.xs b/GIF/GIF.xs
index 75687b8217fa585801bcc19b5a59b05f411a71bf..c547c554e2e8300a4a669bf178042e52ec495ec3 100644 (file)
--- 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();