Mercurial > pidgin

comparison src/perl.c @ 4886:f0140b7e10a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 5216] chip things this might allow that perl 5.000... fix not to break perl 5.8 committer: Tailor Script <tailor@pidgin.im>
author Luke Schierer <lschiere@pidgin.im>
date Tue, 25 Mar 2003 01:41:54 +0000
parents 5496d1704ee0
children b37d7d09ec83
comparison
equal deleted inserted replaced
4885:1bf59e3ac4ff 4886:f0140b7e10a0
31 #endif 31 #endif
32 #endif 32 #endif
33 #undef PACKAGE 33 #undef PACKAGE
34 34
35 #ifdef USE_PERL 35 #ifdef USE_PERL
36
37 #ifndef call_pv
38 # define call_pv(i,j) perl_call_pv(i,j)
39 #endif
40 36
41 #define group perl_group 37 #define group perl_group
42 #ifdef _WIN32 38 #ifdef _WIN32
43 /* This took me an age to figure out.. without this __declspec(dllimport) 39 /* This took me an age to figure out.. without this __declspec(dllimport)
44 * will be ignored. 40 * will be ignored.
84 #undef pipe 80 #undef pipe
85 #endif 81 #endif
86 #include "gaim.h" 82 #include "gaim.h"
87 #include "prpl.h" 83 #include "prpl.h"
88 #include "sound.h" 84 #include "sound.h"
85
86 #ifndef call_pv
87 # define call_pv(i,j) perl_call_pv(i,j)
88 #endif
89 89
90 struct perlscript { 90 struct perlscript {
91 char *name; 91 char *name;
92 char *version; 92 char *version;
93 char *shutdowncallback; /* bleh */ 93 char *shutdowncallback; /* bleh */