VMS override for Module::Build::Base::find_perl_interpreter,

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

diff --git a/mro.c b/mro.c
index 525076f..37a0e96 100644 (file)
--- a/mro.c
+++ b/mro.c
@@ -61,7 +61,7 @@ Perl_mro_meta_init(pTHX_ HV* stash)
     HvAUX(stash)->xhv_mro_meta = newmeta;
     newmeta->cache_gen = 1;
     newmeta->pkg_gen = 1;
-    newmeta->mro_which = (void *) mros;
+    newmeta->mro_which = mros;
 
     return newmeta;
 }
@@ -718,7 +718,7 @@ XS(XS_mro_get_linear_isa) {
        const struct mro_alg *const algo = S_get_mro_from_name(aTHX_ which);
        if (!algo)
            Perl_croak(aTHX_ "Invalid mro name: '%s'", which);
-       algo->resolve(aTHX_ class_stash, 0);
+       RETVAL = algo->resolve(aTHX_ class_stash, 0);
     }
     else {
         RETVAL = mro_get_linear_isa(class_stash);