diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-01-30 09:23:36 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-01-30 09:23:36 +0000 |
| commit | 76e3520e1f6b7df33cd381a2cf4f1fce3d69c8a4 (patch) | |
| tree | 1d4e5f5653fd9def6bd71cc0cb536400223f4d3e /universal.c | |
| parent | 6ad3d225cec2692b410002582f5558652eea32c8 (diff) | |
| download | perl-76e3520e1f6b7df33cd381a2cf4f1fce3d69c8a4.tar.gz | |
[asperl] added AS patch#2
p4raw-id: //depot/asperl@443
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/universal.c b/universal.c index 9a867631d0..5ccd731a70 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; @@ -100,6 +99,7 @@ sv_derived_from(SV *sv, char *name) } +#include "XSUB.h" static XS(XS_UNIVERSAL_isa) @@ -196,6 +196,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) { |