X-Git-Url: http://git.indexdata.com/?p=simpleserver-moved-to-github.git;a=blobdiff_plain;f=SimpleServer.xs;h=b838b29e78d06424bf79e265b0371d17a872c66e;hp=5a3156f3ce2f482cfcf81ed3372f4520a13f94a5;hb=b9ca505a42f1fb9b179d25c4028926c863fa857c;hpb=d30bd0e1b07ea995b0b3c52c4a0907651046c67a

diff --git a/SimpleServer.xs b/SimpleServer.xs
index 5a3156f..b838b29 100644
--- a/SimpleServer.xs
+++ b/SimpleServer.xs
@@ -1,5 +1,5 @@
 /*
- * $Id: SimpleServer.xs,v 1.81 2007-12-20 13:52:06 mike Exp $ 
+ * $Id: SimpleServer.xs,v 1.83 2008-09-02 15:16:34 mike Exp $ 
  * ----------------------------------------------------------------------
  * 
  * Copyright (c) 2000-2004, Index Data.
@@ -865,7 +865,7 @@ int bend_delete(void *handle, bend_delete_rr *rr)
 	    if (rr->num_setnames > 1) {
 		rr->delete_status = 3; /* "System problem at target" */
 		/* There's no way to sent delete-msg using the GFS */
-		return;
+		return 0;
 	    }
 
 	    for (i = 0; i < rr->num_setnames; i++) {
@@ -1428,6 +1428,21 @@ int bend_explain(void *handle, bend_explain_rr *q)
         return 0;
 }
 
+
+/*
+ * You'll laugh when I tell you this ...  Astonishingly, it turns out
+ * that ActivePerl (which is widely used on Windows) has, in the
+ * header file Perl\lib\CORE\XSUB.h, the following heinous crime:
+ *	    #    define open		PerlLIO_open
+ * This of course screws up the use of the "open" member of the
+ * Z_IdAuthentication structure below, so we have to undo this
+ * brain-damage.
+ */
+#ifdef open
+#undef open
+#endif
+
+
 bend_initresult *bend_init(bend_initrequest *q)
 {
 	int dummy = simpleserver_clone();