[cairo-commit] cairo-perl CairoSurface.xs, 1.16, 1.17 ChangeLog,
1.38, 1.39
Torsten Schoenfeld
commit at pdx.freedesktop.org
Sun Sep 24 05:20:47 PDT 2006
Committed by: tsch
Update of /cvs/cairo/cairo-perl
In directory kemper:/tmp/cvs-serv20207
Modified Files:
CairoSurface.xs ChangeLog
Log Message:
* t/CairoSurface.t: Don't check the specific type of similar
surfaces created from PS and PDF surfaces; it's not reliable.
* xs/CairoSurface.xs: Cosmetical changes.
Index: CairoSurface.xs
===================================================================
RCS file: /cvs/cairo/cairo-perl/CairoSurface.xs,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- CairoSurface.xs 13 Aug 2006 18:53:26 -0000 1.16
+++ CairoSurface.xs 24 Sep 2006 12:20:43 -0000 1.17
@@ -55,7 +55,7 @@
return NULL;
}
-#endif
+#endif /* !1.2.0 */
static const char *
get_package (cairo_surface_t *surface)
@@ -169,7 +169,7 @@
unsigned int length)
{
CairoPerlCallback *callback;
- cairo_status_t status;
+ cairo_status_t status = CAIRO_STATUS_SUCCESS;
dCAIRO_PERL_CALLBACK_MARSHAL_SP;
callback = (CairoPerlCallback *) closure;
@@ -188,7 +188,9 @@
call_sv (callback->func, G_DISCARD | G_EVAL);
SPAGAIN;
- status = SvTRUE (ERRSV) ? SvCairoStatus (ERRSV) : CAIRO_STATUS_SUCCESS;
+ if (SvTRUE (ERRSV)) {
+ status = SvCairoStatus (ERRSV);
+ }
PUTBACK;
FREETMPS;
Index: ChangeLog
===================================================================
RCS file: /cvs/cairo/cairo-perl/ChangeLog,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -d -r1.38 -r1.39
--- ChangeLog 4 Sep 2006 15:38:05 -0000 1.38
+++ ChangeLog 24 Sep 2006 12:20:43 -0000 1.39
@@ -1,3 +1,10 @@
+2006-09-24 tsch
+
+ * t/CairoSurface.t: Don't check the specific type of similar
+ surfaces created from PS and PDF surfaces; it's not reliable.
+
+ * xs/CairoSurface.xs: Cosmetical changes.
+
2006-09-04 tsch
* Cairo.pm, NEWS, README: Stable release 1.00.
More information about the cairo-commit
mailing list