perl-Cairo r169 - trunk

[tsch svn gnome org]

Author: tsch
Date: Sat Mar 28 13:11:19 2009
New Revision: 169
URL: http://svn.gnome.org/viewvc/perl-Cairo?rev=169&view=rev

Log:
(cairo_object_from_sv, cairo_struct_from_sv): Hush two compiler warnings.


Modified:
   trunk/Cairo.xs
   trunk/ChangeLog

Modified: trunk/Cairo.xs
==============================================================================
--- trunk/Cairo.xs	(original)
+++ trunk/Cairo.xs	Sat Mar 28 13:11:19 2009
@@ -55,7 +55,7 @@
 cairo_object_from_sv (SV *sv, const char *package)
 {
 	if (!SvOK (sv) || !SvROK (sv) || !sv_derived_from (sv, package))
-		croak("Cannot convert scalar 0x%x to an object of type %s",
+		croak("Cannot convert scalar %p to an object of type %s",
 		      sv, package);
 	return INT2PTR (void *, SvIV ((SV *) SvRV (sv)));
 }
@@ -74,7 +74,7 @@
 cairo_struct_from_sv (SV *sv, const char *package)
 {
 	if (!SvOK (sv) || !SvROK (sv) || !sv_derived_from (sv, package))
-		croak("Cannot convert scalar 0x%x to a struct of type %s",
+		croak("Cannot convert scalar %p to a struct of type %s",
 		      sv, package);
 	return INT2PTR (void *, SvIV ((SV *) SvRV (sv)));
 }