Mercurial > pidgin

comparison plugins/perl/perl-handlers.c @ 12165:f8e22fef03fc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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;