diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2010-10-31 23:47:59 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-10-31 23:48:41 -0700 |
| commit | 4340b38686b9aea905708f35526360d0eff2c491 (patch) | |
| tree | 6e52048e59945c1560d57181567ba3b4a3f3512c /universal.c | |
| parent | cba5a3b05660d6a40525beb667a389a690900298 (diff) | |
| download | perl-4340b38686b9aea905708f35526360d0eff2c491.tar.gz | |
Remove S_get_isa_hash
It no longer serves much purpose, as of 7311f41d6.
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 21 |
1 files changed, 6 insertions, 15 deletions
diff --git a/universal.c b/universal.c index c6dd7fc1d5..488efa0417 100644 --- a/universal.c +++ b/universal.c @@ -33,20 +33,6 @@ #include "perliol.h" /* For the PERLIO_F_XXX */ #endif -static HV * -S_get_isa_hash(pTHX_ HV *const stash) -{ - dVAR; - struct mro_meta *const meta = HvMROMETA(stash); - - PERL_ARGS_ASSERT_GET_ISA_HASH; - - if (!meta->isa) { - (void)mro_get_linear_isa(stash); - } - return meta->isa; -} - /* * Contributed by Graham Barr <Graham.Barr@tiuk.ti.com> * The main guts of traverse_isa was actually copied from gv_fetchmeth @@ -57,12 +43,17 @@ S_isa_lookup(pTHX_ HV *stash, const char * const name) { dVAR; const struct mro_meta *const meta = HvMROMETA(stash); - HV *const isa = meta->isa ? meta->isa : S_get_isa_hash(aTHX_ stash); + HV *isa = meta->isa; STRLEN len = strlen(name); const HV *our_stash; PERL_ARGS_ASSERT_ISA_LOOKUP; + if (!isa) { + (void)mro_get_linear_isa(stash); + isa = meta->isa; + } + if (hv_common(isa, NULL, name, len, 0 /* No "UTF-8" flag possible with only a char * argument*/, HV_FETCH_ISEXISTS, NULL, 0)) { |