Unbreak build on perl 5.00503

Pointed by: kris
2004-03-26 16:02:04 +00:00
parent a75a335d97
commit a8f7eed6c6
1 changed files with 28 additions and 0 deletions
--- a/databases/p5-DBD-InterBase/files/patch-InterBase.xs
+++ b/databases/p5-DBD-InterBase/files/patch-InterBase.xs
@@ -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);