[cairo-commit] cairo-perl CairoSurface.xs, 1.4, 1.5 ChangeLog, 1.5, 1.6 cairo-perl.h, 1.4, 1.5

[Ross McFarland]

Committed by: rwmcfa1

Update of /cvs/cairo/cairo-perl
In directory gabe:/tmp/cvs-serv22963

Modified Files:
	CairoSurface.xs ChangeLog cairo-perl.h 
Log Message:
 	* CairoSurface.xs: fixed a bug in wrapping of cairo_surface_xlib_create
 	where the return value wasn't being caught in RETVAL. thank you -Wall -W
 
 	* cairo-perl.h: wrapped new includes (prev log msg) in #ifdef HAS's so
 	that we can build on systems where no all backends are supported. XS
 	code already supports this.

Index: CairoSurface.xs
===================================================================
RCS file: /cvs/cairo/cairo-perl/CairoSurface.xs,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- CairoSurface.xs	12 Nov 2004 03:26:34 -0000	1.4
+++ CairoSurface.xs	6 Feb 2005 16:21:26 -0000	1.5
@@ -58,7 +58,7 @@
 ## XXX: Display, Drawable ...
 cairo_surface_t * xlib_create (class, Display * dpy, Drawable drawable, Visual * visual, cairo_format_t format, Colormap colormap);
     CODE:
-	cairo_xlib_surface_create (dpy, drawable, visual, format, colormap);
+	RETVAL = cairo_xlib_surface_create (dpy, drawable, visual, format, colormap);
     OUTPUT:
 	RETVAL
 

Index: ChangeLog
===================================================================
RCS file: /cvs/cairo/cairo-perl/ChangeLog,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- ChangeLog	20 Jan 2005 16:35:08 -0000	1.5
+++ ChangeLog	6 Feb 2005 16:21:26 -0000	1.6
@@ -1,3 +1,12 @@
+2005/02/06 11:18 (-0500) rwmcfa1
+
+	* CairoSurface.xs: fixed a bug in wrapping of cairo_surface_xlib_create
+	where the return value wasn't being caught in RETVAL. thank you -Wall -W
+
+	* cairo-perl.h: wrapped new includes (prev log msg) in #ifdef HAS's so
+	that we can build on systems where no all backends are supported. XS
+	code already supports this.
+
 2005-01-20  Carl Worth  <cworth at cworth.org>
 
 	* cairo-perl.h: Track split-up of cairo.h.

Index: cairo-perl.h
===================================================================
RCS file: /cvs/cairo/cairo-perl/cairo-perl.h,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- cairo-perl.h	20 Jan 2005 16:35:08 -0000	1.4
+++ cairo-perl.h	6 Feb 2005 16:21:26 -0000	1.5
@@ -15,10 +15,22 @@
 #include "XSUB.h"
 
 #include <cairo.h>
-#include <cairo-glitz.h>
-#include <cairo-png.h>
-#include <cairo-ps.h>
-#include <cairo-xlib.h>
+
+#ifdef CAIRO_HAS_GLITZ_SURFACE
+# include <cairo-glitz.h>
+#endif
+
+#ifdef CAIRO_HAS_PNG_SURFACE
+# include <cairo-png.h>
+#endif
+
+#ifdef CAIRO_HAS_PS_SURFACE
+# include <cairo-ps.h>
+#endif
+
+#ifdef CAIRO_HAS_XLIB_SURFACE
+# include <cairo-xlib.h>
+#endif
 
 #define CAIRO_PERL_UNUSED(var) if (0) { (var) = (var); }