From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 28 Dec 2008 14:21:03 +0000 (+0000)
Subject: Add casts to gain C++ compatibility, as spotted by Yves.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5844ac76c26b089bf113b64f4251a673b59bdebb;p=p5sagit%2Fp5-mst-13.2.git

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

diff --git a/mro.c b/mro.c
index c29d38e..79df157 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);