comparison: libpurple/plugins/perl/perl-common.h
libpurple/plugins/perl/perl-common.h
- changeset 18633
- 34ba43198355
- parent 18273
- e61c53184c52
- child 22839
- 3ee4247ebbbd
equal
deleted
inserted
replaced
| 18631:fde7b16fe3ea | 18633:34ba43198355 |
|---|---|
| 9 #include <EXTERN.h> | 9 #include <EXTERN.h> |
| 10 #include <perl.h> | 10 #include <perl.h> |
| 11 | 11 |
| 12 /* XXX: perl defines it's own _ but I think it's safe to undef it */ | 12 /* XXX: perl defines it's own _ but I think it's safe to undef it */ |
| 13 #undef _ | 13 #undef _ |
| 14 /* Dirty hack to prevent the win32 libc compat stuff from interfering with the Perl internal stuff */ | |
| 15 #ifdef _WIN32 | |
| 16 #define _WIN32DEP_H_ | |
| 17 #endif | |
| 14 #include "internal.h" | 18 #include "internal.h" |
| 19 #ifdef _WIN32 | |
| 20 #undef _WIN32DEP_H_ | |
| 21 #endif | |
| 15 #include "plugin.h" | 22 #include "plugin.h" |
| 16 #include "value.h" | 23 #include "value.h" |
| 17 | 24 |
| 18 #define is_hvref(o) \ | 25 #define is_hvref(o) \ |
| 19 ((o) && SvROK(o) && SvRV(o) && (SvTYPE(SvRV(o)) == SVt_PVHV)) | 26 ((o) && SvROK(o) && SvRV(o) && (SvTYPE(SvRV(o)) == SVt_PVHV)) |
