| 1 /* Allow the Perl code to see deprecated functions, so we can continue to |
1 /* Allow the Perl code to see deprecated functions, so we can continue to |
| 2 * export them to Perl plugins. */ |
2 * export them to Perl plugins. */ |
| 3 #undef PURPLE_DISABLE_DEPRECATED |
3 /* Re-enable this after 3.0.0 release. |
| |
4 #undef PURPLE_DISABLE_DEPRECATED |
| |
5 */ |
| 4 |
6 |
| 5 typedef struct group *Purple__Group; |
7 typedef struct group *Purple__Group; |
| 6 |
8 |
| 7 #define group perl_group |
9 #define group perl_group |
| 8 |
10 |
| 9 #include <glib.h> |
11 #include <glib.h> |
| 10 #ifdef _WIN32 |
12 #ifdef _WIN32 |
| 11 #undef pipe |
13 #undef pipe |
| 12 #undef STRINGIFY |
14 #undef STRINGIFY |
| 13 #endif |
15 #endif |
| |
16 |
| |
17 #define SILENT_NO_TAINT_SUPPORT 0 |
| |
18 #define NO_TAINT_SUPPORT 0 |
| |
19 |
| 14 #include <EXTERN.h> |
20 #include <EXTERN.h> |
| 15 #include <perl.h> |
21 #include <perl.h> |
| 16 #include <XSUB.h> |
22 #include <XSUB.h> |
| 17 |
23 |
| 18 #undef group |
24 #undef group |