/*
- * $Id: SimpleServer.xs,v 1.29 2004-06-05 22:18:09 adam Exp $
+ * $Id: SimpleServer.xs,v 1.33 2004-06-07 17:00:55 adam Exp $
* ----------------------------------------------------------------------
*
* Copyright (c) 2000-2004, Index Data.
}
/* debugging routine to check for destruction of Perl interpreters */
-#if 1
-int tst_clones(void)
+#ifdef USE_ITHREADS
+void tst_clones(void)
{
int i;
PerlInterpreter *parent = PERL_GET_CONTEXT;
- for (i = 0; i<500; i++)
+ for (i = 0; i<5000; i++)
{
PerlInterpreter *perl_interp;
+ PERL_SET_CONTEXT(parent);
PL_perl_destruct_level = 2;
- perl_interp = perl_clone(parent, 0);
+ perl_interp = perl_clone(parent, CLONEf_CLONE_HOST);
PL_perl_destruct_level = 2;
+ PERL_SET_CONTEXT(perl_interp);
perl_destruct(perl_interp);
perl_free(perl_interp);
}
if (!current) {
PerlInterpreter *perl_interp;
PERL_SET_CONTEXT( root_perl_context );
- perl_interp = perl_clone(root_perl_context, 0);
+ perl_interp = perl_clone(root_perl_context, CLONEf_CLONE_HOST);
PERL_SET_CONTEXT( perl_interp );
}
}
temp = hv_fetch(href, "STATUS", 6, 1);
status = newSVsv(*temp);
-
PUTBACK;
FREETMPS;
LEAVE;
STRLEN len;
int i;
char **basenames;
- int n;
WRBUF query;
char *ptr;
SV *point;
- SV *ODR_point;
Zfront_handle *zhandle = (Zfront_handle *)handle;
CV* handler_cv = 0;
char *ODR_errstr;
STRLEN len;
int term_len;
- SV *term_tmp;
SV *entries_ref;
Zfront_handle *zhandle = (Zfront_handle *)handle;
CV* handler_cv = 0;
SV *handle;
HV *href;
SV **temp;
- SV *status;
ENTER;
SAVETMPS;
{
HV *href;
Zfront_handle *zhandle = (Zfront_handle *)handle;
- SV **temp;
CV* handler_cv = 0;
int stop_flag = 0;
dSP;
sv_free((SV*) href);
}
- sv_free(zhandle->handle);
+ else
+ sv_free(zhandle->handle);
PUTBACK;
FREETMPS;
LEAVE;