Mercurial > pidgin
comparison src/perl.c @ 4886:f0140b7e10a0
[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 */ |