perl script fails in 1.7

[larry s <lws49028 at yahoo dot com>]

I have a perl script that ran fine until I upgraded to 1.7.? It uses DBI to access a mysql database and I have boiled down the problem area to the following:
[top stuff omitted]
my $server = 'remotesvr';
my $database = 'tcdump';
print "\nConnecting to mysql on $server ...\t";
my $dbh = DBI->connect("DBI:mysql:tcdump:$server", 'auser', 'pw', {RaiseError => 1 } )
??? or die "Couldn't connect to database: $DBI::errstr\n";
if ($dbh) { print "Connected to mysql database ($database) on $server \n"; }

my $sth = $dbh->prepare("DESCRIBE aindex") ;
$sth->execute() or die "STMT= execute err= " . $dbh->errstr;

while (my @rowx = $sth->fetchrow_array() ) {
??????? foreach my $jkl (@rowx) {
??????????????? if (defined($jkl)) {
??????????????????????? print "$jkl \t";
??????????????? }
??????? }
??????? print "\n";
}


When run, the fetchrow in the while causes:
DBD::mysql::st fetchrow_array failed: fetch() without execute() at ./testz.pl line 31.
Uncaught exception from user code:
??????? DBD::mysql::st fetchrow_array failed: fetch() without execute() at ./testz.pl line 31.
?at ./testz.pl line 31


It still runs fine when run from Linux machines with perl 5.8.8, so I'm wondering if it can be fixed for 5.10 or if there is a way to go back to 5.8 on Cygwin 1.7.5.

Thanks.

Attachment: cygcheck.out
Description: Binary data

--
Problem reports:       http://cygwin.com/problems.html
FAQ:                   http://cygwin.com/faq/
Documentation:         http://cygwin.com/docs.html
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple