X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=mro.c;h=37a0e96f33f8a34a4334a83e2d8c01a0398e8a31;hb=fca1d8b34fac5a740ae67bc3b873bc01cd76a8a9;hp=525076f2eb7187d06f0dc1ccff0699e2c20967b1;hpb=3d76853f2ba25cc9699cf098371070e4651e154f;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/mro.c b/mro.c
index 525076f..37a0e96 100644
--- 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);