[NeoStats-Devel] [Commits] r2688 - in trunk: . include

Author: Fish
Date: Mon Aug  8 11:41:52 2005
New Revision: 2688

Modified:
   trunk/ChangeLog
   trunk/include/perlmod.h
Log:
fix perl 5.8.0 problems 

Modified: trunk/ChangeLog
==============================================================================
--- trunk/ChangeLog	(original)
+++ trunk/ChangeLog	Mon Aug  8 11:41:52 2005
@@ -4,6 +4,7 @@
 Fish (F), Mark (M), DeadNotBuried (D)
 ===============================================================================
 * NeoStats * Version 3.0.a3-dev
+ - Perl 5.8.0 doesn't have XSRETURN_UV, so it does now via our checks (F)
  - Perl Module Support now has most functionality of standard C Modules.
    Need to fix up NeoStats.pm to do lots of sanity checking first though (F)
  - Fix a crash on shutdown in nsdba relating to not statically storing the hash key (F)

Modified: trunk/include/perlmod.h
==============================================================================
--- trunk/include/perlmod.h	(original)
+++ trunk/include/perlmod.h	Mon Aug  8 11:41:52 2005
@@ -30,6 +30,16 @@
 #include <perl.h>
 #include <XSUB.h>
 
+
+/* to get around perl 5.8.0 issues */
+#ifndef XST_mUV
+#define XST_mUV(i,v)  (ST(i) = sv_2mortal(newSVuv(v))  )
+#endif
+
+#ifndef XSRETURN_UV
+#define XSRETURN_UV(v) STMT_START { XST_mUV(0,v);  XSRETURN(1); } STMT_END
+#endif
+
 typedef struct PerlEvent {
 	SV *callback;
 	SV *userdata;