[perl-Glib] Fix linking against perl < 5.9.4 on some platforms
- From: Torsten SchÃnfeld <tsch src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [perl-Glib] Fix linking against perl < 5.9.4 on some platforms
- Date: Sun, 13 Nov 2011 15:55:58 +0000 (UTC)
commit 95828d116e138fbfcd2da528ad8be5bbb0636d21
Author: Torsten SchÃnfeld <kaffeetisch gmx de>
Date: Sun Nov 13 16:54:34 2011 +0100
Fix linking against perl < 5.9.4 on some platforms
Do not use SvREFCNT_inc_simple_void_NN as that was introduced in perl
5.9.4, which came after the 5.8.0 we require.
GLog.xs | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
---
diff --git a/GLog.xs b/GLog.xs
index d1e3adf..b142035 100644
--- a/GLog.xs
+++ b/GLog.xs
@@ -322,10 +322,10 @@ g_log_set_default_handler (class, SV * log_func, SV * user_data=NULL)
CV *cv = get_cv ("Glib::Log::default_handler", 0);
assert (cv);
RETVAL = newRV_inc ((SV*) cv);
- SvREFCNT_inc_simple_void_NN (RETVAL);
+ SvREFCNT_inc (RETVAL);
} else if (old_func == gperl_log_func) {
RETVAL = old_callback->func;
- SvREFCNT_inc_simple_void_NN (RETVAL);
+ SvREFCNT_inc (RETVAL);
}
if (old_callback) {
gperl_callback_destroy (old_callback);
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]