| Subject: | Does not build with perl 5.14 |
Here is a patch to allow build with perl 5.14
| Subject: | perl-DBD-Firebird-0.52-perl-5.14.patch |
--- DBD-Firebird-0.52/dbdimp.c.514 2011-03-28 12:44:08.000000000 +0000
+++ DBD-Firebird-0.52/dbdimp.c 2011-06-16 22:59:34.000000000 +0000
@@ -101,7 +101,7 @@
if (DBIc_TRACE_LEVEL(imp_xxh) >= 2)
PerlIO_printf(DBIc_LOGPIO(imp_xxh), "%s error %d recorded: %s\n",
- what, rc, SvPV(errstr,na));
+ what, rc, SvPV(errstr,PL_na));
}
#define CALC_AVAILABLE(buff) sizeof(buff) - strlen(buff) - 1
@@ -677,7 +677,7 @@
return Nullsv;
else
{
- if ((result == &sv_yes) || (result == &sv_no))
+ if ((result == &PL_sv_yes) || (result == &PL_sv_no))
return result;
else
return sv_2mortal(result);
@@ -1978,8 +1978,8 @@
DBIh_EVENT2(drh, ERROR_event, DBIc_ERR(imp_drh), DBIc_ERRSTR(imp_drh));
return FALSE;
}
- if (perl_destruct_level)
- perl_destruct_level = 0;
+ if (PL_perl_destruct_level)
+ PL_perl_destruct_level = 0;
return FALSE;
}