simcop2387/DBD-SQLite-SQLcipher
1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-07 14:19:10 -04:00
Code Issues Releases Wiki Activity

applied a patch from VOVKASM (#79576)

Browse source
This commit is contained in:
Kenichi Ishigaki 2012-09-12 03:21:10 +00:00
parent e2ecdff4a2
commit b1d1047321
2 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
dbdimp.c
View file

@ -1197,7 +1197,7 @@ sqlite_bind_ph(SV *sth, imp_sth_t *imp_sth,
pos = 2 * (SvIV(param) - 1);
}
sqlite_trace(sth, imp_sth, 3, form("bind into 0x%p: %"IVdf" => %s (%"IVdf") pos %d", imp_sth->params, SvIV(param), SvPV_nolen_undef_ok(value), sql_type, pos));
av_store(imp_sth->params, pos, SvREFCNT_inc(value));
av_store(imp_sth->params, pos, newSVsv(value));
if (sql_type) {
av_store(imp_sth->params, pos+1, newSViv(sql_type));
}

12
t/19_bindparam.t
View file

@ -7,7 +7,7 @@ BEGIN {
}
use t::lib::Test;
use Test::More tests => 33;
use Test::More tests => 39;
use Test::NoWarnings;
use DBI ':sql_types';
@ -48,6 +48,13 @@ SCOPE: {
ok( $sth->bind_param(1, 5, SQL_INTEGER), 'bind 3' );
ok( $sth->bind_param(2, undef), 'bind 4' );
ok( $sth->execute, '->execute' );
# Works with PADTMPs?
my @values = (6, "Larry");
for (my $i=0; $i<2; $i++) {
ok( $sth->bind_param($i+1, "$values[$i]"), 'bind '.($i+5) );
}
ok( $sth->execute, '->execute' );
}
# Reconnect
@ -75,4 +82,7 @@ SCOPE: {
ok( $sth->fetch, '->fetch' );
is( $id, 5, 'id = 5' );
is( $name, undef, 'name = undef' );
ok( $sth->fetch, '->fetch' );
is( $id, 6, 'id = 6' );
is( $name, 'Larry', 'name = Larry' );
}