mirror of
https://github.com/DBD-SQLite/DBD-SQLite
synced 2025-06-07 14:19:10 -04:00
fixed two issues for older perls (reported by ribasushi++)
This commit is contained in:
parent
153040e776
commit
b792b5f9bd
1 changed files with 2 additions and 1 deletions
3
dbdimp.c
3
dbdimp.c
|
@ -340,7 +340,7 @@ sqlite_db_login6(SV *dbh, imp_dbh_t *imp_dbh, char *dbname, char *user, char *pa
|
|||
sqlite_trace(dbh, imp_dbh, 3, form("login '%s' (version %s)", dbname, sqlite3_version));
|
||||
|
||||
if (SvROK(attr) && hv_exists((HV*)SvRV(attr), "sqlite_open_flags", 17)) {
|
||||
rc = sqlite_open2(dbname, &(imp_dbh->db), SvIV(*hv_fetch((HV*)SvRV(attr), "sqlite_open_flags", 17, NULL)));
|
||||
rc = sqlite_open2(dbname, &(imp_dbh->db), SvIV(*hv_fetch((HV*)SvRV(attr), "sqlite_open_flags", 17, 0)));
|
||||
} else {
|
||||
rc = sqlite_open(dbname, &(imp_dbh->db));
|
||||
}
|
||||
|
@ -2661,6 +2661,7 @@ static int perl_tokenizer_Next(
|
|||
int n_retval;
|
||||
char *token;
|
||||
char *byteOffset;
|
||||
STRLEN n_a;
|
||||
I32 hop;
|
||||
|
||||
dTHX;
|
||||
|
|
Loading…
Add table
Reference in a new issue