RETURNOP(do_kv());
}
else if (gimme == G_SCALAR) {
- SV* sv = Perl_hv_scalar((HV*)TARG);
+ SV* sv = Perl_hv_scalar(aTHX_ (HV*)TARG);
SETs(sv);
}
RETURN;
if (value > (NV)IV_MIN - 0.5) {
SETi(I_V(value));
} else {
- /* This is maint, and we don't have Perl_ceil in perl.h */
- SETn(-Perl_floor(-value));
+ SETn(Perl_ceil(value));
}
}
}