From: Adam Dickmeiss <adam@indexdata.dk>
Date: Fri, 14 May 2004 04:07:50 +0000 (+0000)
Subject: Moved C declaration to start of block
X-Git-Tag: release.0.0.8.lau~14
X-Git-Url: http://git.indexdata.com/?p=simpleserver-moved-to-github.git;a=commitdiff_plain;h=24a62ea74725255f3efd7e426b95f9594440ad3d

Moved C declaration to start of block
---

diff --git a/SimpleServer.xs b/SimpleServer.xs
index 6bd2f36..f3cd24b 100644
--- 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.
@@ -29,6 +29,7 @@
 
 #include "EXTERN.h"
 #include "perl.h"
+#include "proto.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) {
+             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 );
          }
      }