[perl-Glib] Fix linking against perl < 5.9.4 on some platforms



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]