From ce52c6873203e5a8f09b407a8d55db1f9825de80 Mon Sep 17 00:00:00 2001
From: Dave Beazley <dave-swig@dabeaz.com>
Date: Tue, 30 Sep 2003 17:35:18 +0000
Subject: [PATCH] Fixed [ 811518 ] Casting ints to doubles (w/ solution?)

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5168 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 Lib/perl5/perl5.swg | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Lib/perl5/perl5.swg b/Lib/perl5/perl5.swg
index 0c56ce9cd..ee0f42d7e 100644
--- a/Lib/perl5/perl5.swg
+++ b/Lib/perl5/perl5.swg
@@ -450,7 +450,7 @@
 	float, double,
 	const float &, const double &
 {
-  $1 = SvNOK($input) ? 1 : 0;
+  $1 = SvNIOK($input) ? 1 : 0;
 }
 
 %typecheck(SWIG_TYPECHECK_CHAR) char {