Merijn wrote:
>
>HP-UX 11i (11.11) + perl-5.8.5-dor + DBI-1.43 + DBD-CSV-0.21
>
>Failed Test Stat Wstat Total Fail Failed List of Failed
>-------------------------------------------------------------------------------
>t/40bindparam.t 28 1 3.57% 14
>Failed 1/14 test scripts, 92.86% okay. 1/244 subtests failed, 99.59% okay.
The reason for the failure is the new finish() method in DBD::File::st.
Previously it implicitly inherited from DBI::st::finish which always
ended with "return 1". I would suggest just adding the "return 1" to
the end of DBD::File::st::finish().
Cheers,
-Jan
--- DBI/lib/DBD/File.pm.~1~ Wed Aug 11 18:45:01 2004
+++ DBI/lib/DBD/File.pm Wed Aug 11 18:45:01 2004
@@ -441,6 +441,7 @@
my $sth = shift;
$sth->{Active}=0;
delete $sth->{f_stmt}->{data};
+ return 1;
}
sub fetch ($) {
my $sth = shift;
End of Patch.
