Add MRO_GET_PRIVATE_DATA() to use the cached mro private data where possible.

1 files changed, 5 insertions, 0 deletions

diff --git a/hv.h b/hv.h
index 66fb6f2d8e..1481d5b8e9 100644
--- a/hv.h
+++ b/hv.h
@@ -57,6 +57,11 @@ struct mro_meta {
     HV      *isa;            /* Everything this class @ISA */
 };
 
+#define MRO_GET_PRIVATE_DATA(smeta, which)		   \
+    (((smeta)->mro_which && (which) == (smeta)->mro_which) \
+     ? MUTABLE_SV((smeta)->mro_linear_c3)		   \
+     : Perl_mro_get_private_data(aTHX_ (smeta), (which)))
+
 /* Subject to change.
    Don't access this directly.
 */