| Server IP : 82.208.35.60 / Your IP : 216.73.216.89 Web Server : Apache/2.4.55 (FreeBSD) OpenSSL/1.1.1q-freebsd PHP/7.3.31 System : FreeBSD server7.d2m.cz 12.4-RELEASE-p9 FreeBSD 12.4-RELEASE-p9 GENERIC amd64 User : studiokobylisy_cz ( 1008) PHP Version : 7.3.31 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/ports/databases/p5-DBD-InterBase/files/ |
Upload File : |
--- dbdimp.c.orig 2008-01-08 09:02:45.000000000 +0300
+++ dbdimp.c 2014-01-27 13:58:49.202445490 +0400
@@ -113,7 +113,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
@@ -693,7 +693,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);
@@ -1991,8 +1991,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;
}