Unbreak build on perl 5.00503

Pointed by:	kris

1 files changed, 28 insertions, 0 deletions

diff --git a/databases/p5-DBD-InterBase/files/patch-InterBase.xs b/databases/p5-DBD-InterBase/files/patch-InterBase.xs
new file mode 100644
index 000000000000..569c99600bcb
--- /dev/null
+++ 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);