diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-10-28 20:13:55 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-10-28 20:13:55 +0000 |
| commit | ef8f7699778dff55cfd4d5ca899723febaa96cd0 (patch) | |
| tree | ccef706b0aa4dcaca94de85d13e4e905711a6286 /universal.c | |
| parent | 4c4652b6d968d9437bc85193bd123507e4c83bca (diff) | |
| download | perl-ef8f7699778dff55cfd4d5ca899723febaa96cd0.tar.gz | |
Eliminate (HV *) casts in u*.c.
p4raw-id: //depot/perl@34624
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/universal.c b/universal.c index a69ab0d180..91ff18f001 100644 --- a/universal.c +++ b/universal.c @@ -462,7 +462,7 @@ XS(XS_UNIVERSAL_VERSION) } if ( vcmp( req, sv ) > 0 ) { - if ( hv_exists((HV*)SvRV(req), "qv", 2 ) ) { + if ( hv_exists(MUTABLE_HV(SvRV(req)), "qv", 2 ) ) { Perl_croak(aTHX_ "%s version %"SVf" required--" "this is only version %"SVf"", HvNAME_get(pkg), SVfARG(vnormal(req)), @@ -677,7 +677,7 @@ XS(XS_version_is_alpha) SP -= items; if (sv_derived_from(ST(0), "version")) { SV * const lobj = ST(0); - if ( hv_exists((HV*)SvRV(lobj), "alpha", 5 ) ) + if ( hv_exists(MUTABLE_HV(SvRV(lobj)), "alpha", 5 ) ) XSRETURN_YES; else XSRETURN_NO; @@ -884,7 +884,7 @@ XS(XS_Internals_hv_clear_placehold) if (items != 1) croak_xs_usage(cv, "hv"); else { - HV * const hv = (HV *) SvRV(ST(0)); + HV * const hv = MUTABLE_HV(SvRV(ST(0))); hv_clear_placeholders(hv); XSRETURN(0); } @@ -1052,7 +1052,7 @@ XS(XS_Internals_HvREHASH) /* Subject to change */ dXSARGS; PERL_UNUSED_ARG(cv); if (SvROK(ST(0))) { - const HV * const hv = (HV *) SvRV(ST(0)); + const HV * const hv = (const HV *) SvRV(ST(0)); if (items == 1 && SvTYPE(hv) == SVt_PVHV) { if (HvREHASH(hv)) XSRETURN_YES; |