From 31b9005d8ff165a414c5e3493027e1656d7e810f Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 27 Dec 2008 14:32:59 +0000
Subject: Break out the set-the-MRO logic from the XS_mro_set_mro into
 Perl_mro_set_mro(), which can be called from C code (such as the guts of
 extensions).

---
 proto.h | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'proto.h')

diff --git a/proto.h b/proto.h
index 87e1e8632e..1313b31665 100644
--- a/proto.h
+++ b/proto.h
@@ -6577,6 +6577,12 @@ PERL_CALLCONV void	Perl_mro_register(pTHX_ const struct mro_alg *mro)
 #define PERL_ARGS_ASSERT_MRO_REGISTER	\
 	assert(mro)
 
+PERL_CALLCONV void	Perl_mro_set_mro(pTHX_ struct mro_meta *const meta, SV *const name)
+			__attribute__nonnull__(pTHX_1)
+			__attribute__nonnull__(pTHX_2);
+#define PERL_ARGS_ASSERT_MRO_SET_MRO	\
+	assert(meta); assert(name)
+
 PERL_CALLCONV struct mro_meta*	Perl_mro_meta_init(pTHX_ HV* stash)
 			__attribute__nonnull__(pTHX_1);
 #define PERL_ARGS_ASSERT_MRO_META_INIT	\
-- 
cgit v1.2.1