From 84dccb35f7809a3cd00c6b11d0a9aa40b70e045f Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Wed, 26 Sep 2007 16:32:45 +0000 Subject: 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 --- mro.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'mro.c') 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); -- cgit v1.2.1