diff options
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/universal.c b/universal.c index 67f96c381b..72da1e4937 100644 --- a/universal.c +++ b/universal.c @@ -1,13 +1,12 @@ #include "EXTERN.h" #include "perl.h" -#include "XSUB.h" /* * Contributed by Graham Barr <Graham.Barr@tiuk.ti.com> * The main guts of traverse_isa was actually copied from gv_fetchmeth */ -static SV * +STATIC SV * isa_lookup(HV *stash, char *name, int len, int level) { AV* av; @@ -101,6 +100,11 @@ sv_derived_from(SV *sv, char *name) } +#ifdef PERL_OBJECT +#define NO_XSLOCKS +#endif /* PERL_OBJECT */ + +#include "XSUB.h" static XS(XS_UNIVERSAL_isa) @@ -197,6 +201,12 @@ XS(XS_UNIVERSAL_VERSION) XSRETURN(1); } +#ifdef PERL_OBJECT +#undef boot_core_UNIVERSAL +#define boot_core_UNIVERSAL CPerlObj::Perl_boot_core_UNIVERSAL +#define pPerl this +#endif + void boot_core_UNIVERSAL(void) { |