# HG changeset patch
# User Stu Tomlinson <stu@nosnilmot.com>
# Date 1132423639 0
# Node ID f8e22fef03fcdb2f20e0a76f078c8ac3a36d672f
# Parent  281ab2ecc08c0d0f6b8592ec1b761b88675beb49
[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>

diff -r 281ab2ecc08c -r f8e22fef03fc plugins/perl/common/typemap
--- 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
diff -r 281ab2ecc08c -r f8e22fef03fc plugins/perl/perl-handlers.c
--- 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) {