simcop2387/DBD-SQLite-SQLcipher
1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-08 06:38:12 -04:00
Code Issues Releases Wiki Activity

DBD-SQLite: effort to resolve #44884; removed DBIS->debug

Browse source
This commit is contained in:
Kenichi Ishigaki 2009-04-09 00:39:18 +00:00
parent 6513771152
commit c7435338dd
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
dbdimp.c
View file

@ -43,7 +43,7 @@ _sqlite_error(char *file, int line, SV *h, imp_xxh_t *imp_xxh, int rc, char *wha
/* #7753: DBD::SQLite error shouldn't include extraneous info */ /* #7753: DBD::SQLite error shouldn't include extraneous info */
/* sv_catpvf(errstr, "(%d) at %s line %d", rc, file, line); */ /* sv_catpvf(errstr, "(%d) at %s line %d", rc, file, line); */
if ( DBIS->debug >= 3 ) { if ( DBIc_TRACE(imp_xxh, 0, 0, 3) ) {
PerlIO_printf(DBILOGFP, "sqlite error %d recorded: %s at %s line %d\n", PerlIO_printf(DBILOGFP, "sqlite error %d recorded: %s at %s line %d\n",
rc, what, file, line); rc, what, file, line);
} }
@ -55,7 +55,7 @@ _sqlite_tracef(char *file, int line, SV *h, imp_xxh_t *imp_xxh, int level, const
dTHR; dTHR;
va_list ap; va_list ap;
if (DBIS->debug >= level) { if ( DBIc_TRACE(imp_xxh, 0, 0, level) ) {
char format[8192]; char format[8192];
sqlite3_snprintf(8191, format, "sqlite trace: %s at %s line %d\n", fmt, file, line); sqlite3_snprintf(8191, format, "sqlite trace: %s at %s line %d\n", fmt, file, line);
va_start(ap, fmt); va_start(ap, fmt);
@ -70,7 +70,7 @@ _sqlite_tracef_noline(SV *h, imp_xxh_t *imp_xxh, int level, const char *fmt, ...
dTHR; dTHR;
va_list ap; va_list ap;
if (DBIS->debug >= level) { if ( DBIc_TRACE(imp_xxh, 0, 0, level) ) {
char format[8192]; char format[8192];
sqlite3_snprintf(8191, format, "sqlite trace: %s\n", fmt); sqlite3_snprintf(8191, format, "sqlite trace: %s\n", fmt);
va_start(ap, fmt); va_start(ap, fmt);
@ -86,7 +86,7 @@ sqlite_db_login(SV *dbh, imp_dbh_t *imp_dbh, char *dbname, char *user, char *pas
int retval; int retval;
char *errmsg = NULL; char *errmsg = NULL;
if ( DBIS->debug >= 3 ) { if ( DBIc_TRACE(imp_dbh, 0, 0, 3) ) {
PerlIO_printf(DBILOGFP, " login '%s' (version %s)\n", PerlIO_printf(DBILOGFP, " login '%s' (version %s)\n",
dbname, sqlite3_version); dbname, sqlite3_version);
} }