Author: turnstep
Date: Sun Feb 17 12:47:19 2008
New Revision: 10773
Modified:
DBD-Pg/trunk/Changes
DBD-Pg/trunk/dbdimp.c
Log:
Attempted fix for bug 33193: bind_col with arrays.
Modified: DBD-Pg/trunk/Changes
==============================================================================
--- DBD-Pg/trunk/Changes (original)
+++ DBD-Pg/trunk/Changes Sun Feb 17 12:47:19 2008
@@ -5,6 +5,7 @@
- Use version.pm [CPAN bug #33206] [GSM]
- Add PERL_NO_GET_CONTEXT #define to improve performance on threaded
Perls
- Raise the minimum DBI version to 1.52.
+ - Allow arrayrefs into bind_col (CPAN bug #33193) [GSM]
- Remove '//' style comments to make strict ANSI compilers happy.
(Trevor Inman) [CPAN bug #33089]
- Force client encoding of UTF8 for some tests.
Modified: DBD-Pg/trunk/dbdimp.c
==============================================================================
--- DBD-Pg/trunk/dbdimp.c (original)
+++ DBD-Pg/trunk/dbdimp.c Sun Feb 17 12:47:19 2008
@@ -3069,7 +3069,7 @@
SV *sv;
if (dbis->debug >= 5)
- (void)PerlIO_printf(DBILOGFP, "dbdpg: Fetching a
field\n");
+ (void)PerlIO_printf(DBILOGFP, "dbdpg: Fetching field
#%d\n", i);
sv = AvARRAY(av)[i];
@@ -3084,7 +3084,8 @@
if (type_info
&& 0 == strncmp(type_info->arrayout, "array", 5)
&& imp_dbh->expand_array) {
- AvARRAY(av)[i] = pg_destringify_array(aTHX_
imp_dbh, value, type_info);
+ //fprintf(stderr, "Hey! We gots an array!\n");
+ sv_replace(sv, pg_destringify_array(aTHX_
imp_dbh, value, type_info));
}
else {
if (type_info) {
