#if PERL_BCDVERSION >= 0x5008005
#define LooksLikeNumber(sv) looks_like_number(sv)
#else
-#define LooksLikeNumber(sv) ( SvPOKp(sv) ? looks_like_number(sv) : SvNIOKp(sv) )
+#define LooksLikeNumber(sv) ( SvPOKp(sv) ? looks_like_number(sv) : (I32)SvNIOKp(sv) )
#endif
#ifndef SvRXOK
else {
char buf[64]; /* Must fit sprintf/Gconvert of longest NV */
char* p;
- Gconvert(nv, NV_DIG, 0, buf);
+ (void)Gconvert(nv, NV_DIG, 0, buf);
p = &buf[0];
/* -?[0-9]+ */
#define find_method_pvn(a, b, c) mouse_stash_find_method(aTHX_ a, b, c)
#define find_method_pvs(a, b) mouse_stash_find_method(aTHX_ a, STR_WITH_LEN(b))
-static inline GV*
+STATIC_INLINE GV*
mouse_stash_find_method(pTHX_ HV* const stash, const char* const name, I32 const namelen){
GV** const gvp = (GV**)hv_fetch(stash, name, namelen, FALSE);
if(gvp && isGV(*gvp) && GvCV(*gvp)){ /* shortcut */