Mercurial > pidgin.yaz
comparison plugins/perl/perl-handlers.c @ 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 | 0e9e2b923d09 |
children | 050b29b7232a |
comparison
equal
deleted
inserted
replaced
12164:281ab2ecc08c | 12165:f8e22fef03fc |
---|---|
8 static GList *timeout_handlers = NULL; | 8 static GList *timeout_handlers = NULL; |
9 static GList *signal_handlers = NULL; | 9 static GList *signal_handlers = NULL; |
10 static char *perl_plugin_pref_cb; | 10 static char *perl_plugin_pref_cb; |
11 static char *perl_gtk_plugin_pref_cb; | 11 static char *perl_gtk_plugin_pref_cb; |
12 extern PerlInterpreter *my_perl; | 12 extern PerlInterpreter *my_perl; |
13 | |
14 /* perl < 5.8.0 doesn't define PERL_MAGIC_ext */ | |
15 #ifndef PERL_MAGIC_ext | |
16 #define PERL_MAGIC_ext '~' | |
17 #endif | |
13 | 18 |
14 /* For now a plugin can only have one action */ | 19 /* For now a plugin can only have one action */ |
15 void gaim_perl_plugin_action_cb(GaimPluginAction * gpa) { | 20 void gaim_perl_plugin_action_cb(GaimPluginAction * gpa) { |
16 | 21 |
17 dSP; | 22 dSP; |