Unbreak build on perl 5.00503
Pointed by: kris
This commit is contained in:
parent
a75a335d97
commit
a8f7eed6c6
Notes:
svn2git
2021-03-31 03:12:20 +00:00
svn path=/head/; revision=105342
28
databases/p5-DBD-InterBase/files/patch-InterBase.xs
Normal file
28
databases/p5-DBD-InterBase/files/patch-InterBase.xs
Normal file
@ -0,0 +1,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);
|
Loading…
Reference in New Issue
Block a user