Aplied. Thanks.
Tim.
On Wed, Aug 11, 2004 at 07:01:11PM -0700, Jan Dubois wrote:
> 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.
>
>
