[cairo-commit] cairo-perl CairoSurface.xs, 1.17, 1.17.2.1 ChangeLog, 1.43.2.3, 1.43.2.4

[Torsten Schoenfeld]

Committed by: tsch

Update of /cvs/cairo/cairo-perl
In directory kemper:/tmp/cvs-serv30022

Modified Files:
      Tag: stable-1-0
	CairoSurface.xs ChangeLog 
Log Message:
	* CairoSurface.xs, t/CairoSurface.t: Make
	Cairo::ImageSurface::get_data usable by specifying the buffer
	length.


Index: CairoSurface.xs
===================================================================
RCS file: /cvs/cairo/cairo-perl/CairoSurface.xs,v
retrieving revision 1.17
retrieving revision 1.17.2.1
diff -u -d -r1.17 -r1.17.2.1
--- CairoSurface.xs	24 Sep 2006 12:20:43 -0000	1.17
+++ CairoSurface.xs	23 Nov 2006 19:13:01 -0000	1.17.2.1
@@ -343,9 +343,12 @@
 cairo_image_surface_get_data (cairo_surface_t *surface)
     PREINIT:
 	unsigned char *data;
+	int height, stride;
     CODE:
 	data = cairo_image_surface_get_data (surface);
-	RETVAL = data ? newSVpv ((char *) data, 0) : &PL_sv_undef;
+	height = cairo_image_surface_get_height (surface);
+	stride = cairo_image_surface_get_stride (surface);
+	RETVAL = data ? newSVpv ((char *) data, height * stride) : &PL_sv_undef;
     OUTPUT:
 	RETVAL
 

Index: ChangeLog
===================================================================
RCS file: /cvs/cairo/cairo-perl/ChangeLog,v
retrieving revision 1.43.2.3
retrieving revision 1.43.2.4
diff -u -d -r1.43.2.3 -r1.43.2.4
--- ChangeLog	11 Nov 2006 20:07:55 -0000	1.43.2.3
+++ ChangeLog	23 Nov 2006 19:13:01 -0000	1.43.2.4
@@ -1,3 +1,11 @@
+2006-11-23	tsch
+
+	Merge from HEAD:
+
+	* CairoSurface.xs, t/CairoSurface.t: Make
+	Cairo::ImageSurface::get_data usable by specifying the buffer
+	length.
+
 2006-11-11	tsch
 
 	* Cairo.pm, NEWS, README: Brown paper bag release 1.021.