changeset 12165:f8e22fef03fc

[gaim-migrate @ 14466] Fix the perl loader to compile with old perl (< 5.8.0) and old gcc (< 3) committer: Tailor Script <tailor@pidgin.im>
author Stu Tomlinson <stu@nosnilmot.com>
date Sat, 19 Nov 2005 18:07:19 +0000
parents 281ab2ecc08c
children d6417efb990c
files plugins/perl/common/typemap plugins/perl/perl-handlers.c
diffstat 2 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/plugins/perl/common/typemap	Sat Nov 19 16:35:34 2005 +0000
+++ b/plugins/perl/common/typemap	Sat Nov 19 18:07:19 2005 +0000
@@ -211,7 +211,7 @@
 INPUT
 
 T_GaimObj
-	$var = gaim_perl_ref_object($arg);
+	$var = gaim_perl_ref_object($arg)
 
 
 OUTPUT
--- a/plugins/perl/perl-handlers.c	Sat Nov 19 16:35:34 2005 +0000
+++ b/plugins/perl/perl-handlers.c	Sat Nov 19 18:07:19 2005 +0000
@@ -11,6 +11,11 @@
 static char *perl_gtk_plugin_pref_cb;
 extern PerlInterpreter *my_perl;
 
+/* perl < 5.8.0 doesn't define PERL_MAGIC_ext */
+#ifndef PERL_MAGIC_ext
+#define PERL_MAGIC_ext '~'
+#endif
+
 /* For now a plugin can only have one action */
 void gaim_perl_plugin_action_cb(GaimPluginAction * gpa) {