From 5844ac76c26b089bf113b64f4251a673b59bdebb Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Sun, 28 Dec 2008 14:21:03 +0000 Subject: [PATCH] Add casts to gain C++ compatibility, as spotted by Yves. --- mro.c | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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); -- 2.7.4