All,
Unless this is done to DBI-1.30, the table_info method fails rather
miserably under Perl 5.8.0 (didn't try with anything earlier, sorry):
--- DBI-1.30/lib/DBI/ProxyServer.pm.orig Sat May 25 13:36:16 2002
+++ DBI-1.30/lib/DBI/ProxyServer.pm Mon Aug 26 16:09:04 2002
@@ -293,7 +293,7 @@
# DBI::st and not DBI::ProxyServer::st. We could fix this by permitting
# the client to execute method DBI::st, but I don't like this.
my @rows;
- while (my $row = $sth->fetch()) {
+ while (my ($row) = $sth->fetch()) {
push(@rows, [@$row]);
}
($numFields, $names, $types, @rows);
Unless this bit of code is new, I'm not sure why it ever worked.
$sth->fetch needs to be called in list context to get a proper array
reference.
Steve
--
----------------------------------------------------------------
Steven N. Hirsch tie-line: 446-6557 ext: 802-769-6557
Staff Engineer Methodology Integration Team
ASIC Product Development IBM Microelectronics
----------------------------------------------------------------
