blob: 569c99600bcb4c6d14f9a4878d2e8fcb0d408e55 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
--- InterBase.xs.orig Fri Mar 26 17:19:34 2004
+++ InterBase.xs Fri Mar 26 17:21:26 2004
@@ -22,11 +22,13 @@
PERL_SET_CONTEXT(ev->dbh->context);
{
#else
+#if defined(PERL_GET_CONTEXT)
void *context = PERL_GET_CONTEXT;
PerlInterpreter *cb_perl = perl_alloc();
PERL_SET_CONTEXT(cb_perl);
{
#endif
+#endif
dSP;
char ISC_FAR *result = ev->result_buffer;
@@ -52,9 +54,11 @@
/* restore old context*/
PERL_SET_CONTEXT(context);
#else
+#if defined(PERL_GET_CONTEXT)
}
PERL_SET_CONTEXT(context);
perl_free(cb_perl);
+#endif
#endif
return (0);
|
