Update the documentation of get_av() to note that it calls Perl_gv_fetchpv(),

[p5sagit/p5-mst-13.2.git] / universal.c

diff --git a/universal.c b/universal.c
index a748d45..d333d23 100644 (file)
--- 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;