Author: timbo
Date: Mon Apr 9 14:32:13 2007
New Revision: 9389
Modified:
dbi/trunk/lib/DBI/Gofer/Execute.pm
dbi/trunk/lib/DBI/Gofer/Response.pm
Log:
Include syb_result_type in gofer sth attribs.
Include NAMEs and syb_result_type in Gofer Response summary_as_text.
Modified: dbi/trunk/lib/DBI/Gofer/Execute.pm
==============================================================================
--- dbi/trunk/lib/DBI/Gofer/Execute.pm (original)
+++ dbi/trunk/lib/DBI/Gofer/Execute.pm Mon Apr 9 14:32:13 2007
@@ -90,9 +90,8 @@
dbh => [qw(
syb_dynamic_supported syb_oc_version syb_server_version
syb_server_version_string
)],
- # we don't include syb_result_type as that's a *per row* attribute
sth => [qw(
- syb_types syb_proc_status
+ syb_types syb_proc_status syb_result_type
)],
},
SQLite => {
Modified: dbi/trunk/lib/DBI/Gofer/Response.pm
==============================================================================
--- dbi/trunk/lib/DBI/Gofer/Response.pm (original)
+++ dbi/trunk/lib/DBI/Gofer/Response.pm Mon Apr 9 14:32:13 2007
@@ -111,7 +111,10 @@
}
$summary .= sprintf ", err=%s, errstr=%s", $err, neat($errstr) if
defined $err;
$summary .= sprintf " [%s]", neat_list($rowset->[0], 30) if $rows;
+ $summary .= sprintf "{%s}", neat_list($rs->{NAME}, 30);
$summary .= ",..." if $rows > 1;
+ # we can be a little more helpful for Sybase/MSSQL users
+ $summary .= " syb_result_type=$rs->{syb_result_type}" if
$rs->{syb_result_type};
push @s, $summary;
}
for my $w (@{$self->warnings || []}) {
