From: gfx <gfuji@cpan.org>
Date: Tue, 6 Jul 2010 09:59:12 +0000 (+0900)
Subject: Avoid compiler's warnings on older perls
X-Git-Tag: 0.62~5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4bb92469f92834968fc1162ef086f040fa182713;hp=652b2a9784bdd5fdb2d36e941e5dbec965532268;p=gitmo%2FMouse.git

Avoid compiler's warnings on older perls
---

diff --git a/xs-src/MouseTypeConstraints.xs b/xs-src/MouseTypeConstraints.xs
index 420703e..bf07619 100644
--- a/xs-src/MouseTypeConstraints.xs
+++ b/xs-src/MouseTypeConstraints.xs
@@ -7,7 +7,7 @@
 #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