28 lines
620 B
Text
28 lines
620 B
Text
--- 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);
|