Change 31977 introduced a bug (failing to set the return value of

mro::get_linear_isa() when passed a second parameter). However, there
were no tests for this. Fix both.

p4raw-id: //depot/perl@31981

1 files changed, 1 insertions, 1 deletions

diff --git a/mro.c b/mro.c
index 525076f2eb..f3db7745aa 100644
--- a/mro.c
+++ b/mro.c
@@ -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);