From: Tony Cook <tony@develop=help.com>
Date: Mon, 2 Apr 2001 10:10:42 +0000 (+0000)
Subject: fixed the problem with 2 references to the one i_color object after a
X-Git-Tag: Imager-0.48^2~767
X-Git-Url: http://git.imager.perl.org/imager.git/commitdiff_plain/29106a1132efd9a69b97f9e0e2d9a9a747af1d15

fixed the problem with 2 references to the one i_color object after a
call to ICL_set_internal.  at least I think so.
---

diff --git a/Imager.xs b/Imager.xs
index 87272aed..1cf62b08 100644
--- a/Imager.xs
+++ b/Imager.xs
@@ -421,14 +421,16 @@ ICL_DESTROY(cl)
                Imager::Color    cl
 
 
-Imager::Color
+void
 ICL_set_internal(cl,r,g,b,a)
                Imager::Color    cl
                unsigned char     r
                unsigned char     g
                unsigned char     b
                unsigned char     a
-
+	   PPCODE:
+	       EXTEND(SP, 1);
+	       PUSHs(ST(0));
 
 void
 ICL_info(cl)