projects
/
simpleserver-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
868455a
)
Moved C declaration to start of block
author
Adam Dickmeiss
<adam@indexdata.dk>
Fri, 14 May 2004 04:07:50 +0000
(
04:07
+0000)
committer
Adam Dickmeiss
<adam@indexdata.dk>
Fri, 14 May 2004 04:07:50 +0000
(
04:07
+0000)
SimpleServer.xs
patch
|
blob
|
history
diff --git
a/SimpleServer.xs
b/SimpleServer.xs
index
6bd2f36
..
f3cd24b
100644
(file)
--- a/
SimpleServer.xs
+++ b/
SimpleServer.xs
@@
-1,5
+1,5
@@
/*
/*
- * $Id: SimpleServer.xs,v 1.24 2004-05-13 19:04:28 adam Exp $
+ * $Id: SimpleServer.xs,v 1.25 2004-05-14 04:07:50 adam Exp $
* ----------------------------------------------------------------------
*
* Copyright (c) 2000-2004, Index Data.
* ----------------------------------------------------------------------
*
* Copyright (c) 2000-2004, Index Data.
@@
-29,6
+29,7
@@
#include "EXTERN.h"
#include "perl.h"
#include "EXTERN.h"
#include "perl.h"
+#include "proto.h"
#include "embed.h"
#include "XSUB.h"
#include <yaz/backend.h>
#include "embed.h"
#include "XSUB.h"
#include <yaz/backend.h>
@@
-127,8
+128,9
@@
int simpleserver_clone(void) {
* This will only happen when threaded is used..
*/
if (!current) {
* This will only happen when threaded is used..
*/
if (!current) {
+ PerlInterpreter *perl_interp;
PERL_SET_CONTEXT( root_perl_context );
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 );
}
}
PERL_SET_CONTEXT( perl_interp );
}
}