diff options
author | Benjamin Dauvergne <bdauvergne@entrouvert.com> | 2010-01-29 16:42:33 +0000 |
---|---|---|
committer | Benjamin Dauvergne <bdauvergne@entrouvert.com> | 2010-01-29 16:42:33 +0000 |
commit | afdb5238875fed7bf1bb854b2b7b9eb7b9beb833 (patch) | |
tree | ebe655ff9a2b0ac47136552f4b8c5bed5b3d2159 /bindings/perl/gobject_handling.c | |
parent | 91c6efceaa0b0d3058e0b2431957e456872eedca (diff) | |
download | lasso-afdb5238875fed7bf1bb854b2b7b9eb7b9beb833.tar.gz lasso-afdb5238875fed7bf1bb854b2b7b9eb7b9beb833.tar.xz lasso-afdb5238875fed7bf1bb854b2b7b9eb7b9beb833.zip |
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.
Diffstat (limited to 'bindings/perl/gobject_handling.c')
-rw-r--r-- | bindings/perl/gobject_handling.c | 3 |
1 files changed, 2 insertions, 1 deletions
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); } } |