From afdb5238875fed7bf1bb854b2b7b9eb7b9beb833 Mon Sep 17 00:00:00 2001
From: Benjamin Dauvergne <bdauvergne@entrouvert.com>
Date: Fri, 29 Jan 2010 16:42:33 +0000
Subject: Binding perl: remove warning when passing Null to croak

 * bindings/perl/gobject_handling.c:
   croak is aliased to Perl_croak_nocontext which has a gcc attribute
   'notnull'. We use Perl_croak and an explicit perl context object, to
   work around this warning.
---
 bindings/perl/gobject_handling.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'bindings/perl')

diff --git a/bindings/perl/gobject_handling.c b/bindings/perl/gobject_handling.c
index 67ba386a..aeab6fc5 100644
--- a/bindings/perl/gobject_handling.c
+++ b/bindings/perl/gobject_handling.c
@@ -230,6 +230,7 @@ gperl_get_object (SV * sv)
 static void
 gperl_lasso_error(int error)
 {
+	dTHX;
 	if (error != 0) {
 		HV *hv;
 		SV *sv;
@@ -241,6 +242,6 @@ gperl_lasso_error(int error)
 		(void)hv_store(hv, "message", 7, newSVpv(desc, 0), 0);
 		sv = sv_bless(newRV_noinc((SV*)hv), gv_stashpv("Lasso::Error", TRUE));
 		sv_setsv(ERRSV, sv);
-		croak ((void*)what);
+		Perl_croak (aTHX_ Nullch);
 	}
 }
-- 
cgit