[cairo-commit] cairo-perl CairoSurface.xs, 1.15, 1.16 ChangeLog, 1.32, 1.33

[Torsten Schoenfeld]

Committed by: tsch

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

Modified Files:
	CairoSurface.xs ChangeLog 
Log Message:
	* CairoSurface.xs (read_func_marshaller): Use POPs, SvPV, and
	sv_len instead of POPpx to avoid problems on perl 5.8.8 reported
	by Joe Smith and Alexey Tourbin.


Index: CairoSurface.xs
===================================================================
RCS file: /cvs/cairo/cairo-perl/CairoSurface.xs,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- CairoSurface.xs	10 Aug 2006 23:13:57 -0000	1.15
+++ CairoSurface.xs	13 Aug 2006 18:53:26 -0000	1.16
@@ -227,10 +227,8 @@
 	if (SvTRUE (ERRSV)) {
 		status = SvCairoStatus (ERRSV);
 	} else {
-		STRLEN n_a;
-		char *retval;
-		retval = POPpx;
-		memcpy (data, retval, n_a);
+		SV *retval = POPs;
+		memcpy (data, SvPV_nolen (retval), sv_len (retval));
 	}
 
 	PUTBACK;

Index: ChangeLog
===================================================================
RCS file: /cvs/cairo/cairo-perl/ChangeLog,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -d -r1.32 -r1.33
--- ChangeLog	11 Aug 2006 18:51:45 -0000	1.32
+++ ChangeLog	13 Aug 2006 18:53:26 -0000	1.33
@@ -1,3 +1,9 @@
+2006-08-13	tsch
+
+	* CairoSurface.xs (read_func_marshaller): Use POPs, SvPV, and
+	sv_len instead of POPpx to avoid problems on perl 5.8.8 reported
+	by Joe Smith and Alexey Tourbin.
+
 2006-08-11	tsch
 
 	* examples/png-streams.pl: New example that demonstrates how to