#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
return LooksLikeNumber(sv);
}
-int
+static int
S_nv_is_integer(pTHX_ NV const nv) {
if(nv == (NV)(IV)nv){
return TRUE;
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]+ */