From 774a40c822deff972e28ff3da17211f7d8b128af Mon Sep 17 00:00:00 2001
From: Marcelo Matus <mmatus@acms.arizona.edu>
Date: Fri, 10 Feb 2006 19:36:01 +0000
Subject: [PATCH] define SvIOK_UV if missing

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

diff --git a/Lib/perl5/perlrun.swg b/Lib/perl5/perlrun.swg
index fc1199ee9..314eb3edd 100644
--- a/Lib/perl5/perlrun.swg
+++ b/Lib/perl5/perlrun.swg
@@ -165,6 +165,10 @@ typedef int (*SwigMagicFuncHack)(struct interpreter *, SV *, MAGIC *);
 
 /* Add in functionality missing in older versions of Perl. Much of this is based on Devel-PPPort on cpan. */
 
+#ifndef SvIOK_UV
+# define SvIOK_UV(sv)       (SvIOK(sv) && (SvUVX(sv) == SvIVX(sv)))
+#endif
+
 #ifndef SvUOK
 # define SvUOK(sv)           SvIOK_UV(sv)
 #endif