diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-01-03 10:38:28 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-01-03 10:38:28 +0000 |
| commit | aea323039bd02667df3bd60d27358d65842cd171 (patch) | |
| tree | f25cfd707a9d2364b9d6f2eaad185813fb99c15f /universal.c | |
| parent | 00bf72ff155f3450b111622b688bd0036a18326c (diff) | |
| download | perl-aea323039bd02667df3bd60d27358d65842cd171.tar.gz | |
get_isa_hash() is only used in S_isa_lookup(), so it can be static. Also, it has
never been in a released version of perl, so this change has no compatibility
implications.
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/universal.c b/universal.c index a748d45148..d333d2342c 100644 --- a/universal.c +++ b/universal.c @@ -33,8 +33,8 @@ #include "perliol.h" /* For the PERLIO_F_XXX */ #endif -HV * -Perl_get_isa_hash(pTHX_ HV *const stash) +static HV * +S_get_isa_hash(pTHX_ HV *const stash) { dVAR; struct mro_meta *const meta = HvMROMETA(stash); @@ -78,7 +78,7 @@ 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 : Perl_get_isa_hash(aTHX_ stash); + HV *const isa = meta->isa ? meta->isa : S_get_isa_hash(aTHX_ stash); STRLEN len = strlen(name); const HV *our_stash; |