/*
-
- * $Id: SimpleServer.xs,v 1.23 2004-05-13 18:55:40 adam Exp $
+ * $Id: SimpleServer.xs,v 1.26 2004-05-29 07:04:26 adam Exp $
* ----------------------------------------------------------------------
*
- * Copyright (c) 2000, Index Data.
+ * Copyright (c) 2000-2004, Index Data.
*
* Permission to use, copy, modify, distribute, and sell this software and
* its documentation, in whole or in part, for any purpose, is hereby granted,
* OF THIS SOFTWARE.
*/
-
-
#include "EXTERN.h"
#include "perl.h"
+#include "proto.h"
#include "embed.h"
#include "XSUB.h"
#include <yaz/backend.h>
#endif
int simpleserver_clone(void) {
+#ifdef USE_ITHREADS
nmem_mutex_enter(simpleserver_mutex);
if (1)
{
* This will only happen when threaded is used..
*/
if (!current) {
+ PerlInterpreter *perl_interp;
PERL_SET_CONTEXT( root_perl_context );
- PerlInterpreter *perl_interp = perl_clone(root_perl_context, 0);
+ perl_interp = perl_clone(root_perl_context, 0);
PERL_SET_CONTEXT( perl_interp );
}
}
nmem_mutex_leave(simpleserver_mutex);
+#endif
return 0;
}