Add casts to gain C++ compatibility, as spotted by Yves.

1 files changed, 5 insertions, 5 deletions

diff --git a/mro.c b/mro.c
index c29d38e3b1..79df157cbc 100644
--- a/mro.c
+++ b/mro.c
@@ -37,9 +37,9 @@ Perl_mro_get_private_data(pTHX_ struct mro_meta *const smeta,
     SV **data;
     PERL_ARGS_ASSERT_MRO_GET_PRIVATE_DATA;
 
-    data = Perl_hv_common(aTHX_ smeta->mro_linear_all, NULL,
-			  which->name, which->length, which->kflags,
-			  HV_FETCH_JUST_SV, NULL, which->hash);
+    data = (SV **)Perl_hv_common(aTHX_ smeta->mro_linear_all, NULL,
+				 which->name, which->length, which->kflags,
+				 HV_FETCH_JUST_SV, NULL, which->hash);
     if (!data)
 	return NULL;
 
@@ -105,8 +105,8 @@ Perl_mro_get_from_name(pTHX_ SV *name) {
 
     PERL_ARGS_ASSERT_MRO_GET_FROM_NAME;
 
-    data = Perl_hv_common(aTHX_ PL_registered_mros, name, NULL, 0, 0,
-			  HV_FETCH_JUST_SV, NULL, 0);
+    data = (SV **)Perl_hv_common(aTHX_ PL_registered_mros, name, NULL, 0, 0,
+				 HV_FETCH_JUST_SV, NULL, 0);
     if (!data)
 	return NULL;
     assert(SvTYPE(*data) == SVt_IV);