Re: DBD::ADO RC 2.4_06

[Steffen Goeldner]

I tested DBD::ADO RC 2.4_06 with:

  set DBI_DSN=dbi:ADO:Provider=Microsoft.Jet.OLEDB.4.0;Data Source=mytest.mdb
  make test

and got (among other things):

    t\02simple....ok 7/23Use of uninitialized value in string eq at t\02simple.t line 
46.

Attached is a possible patch.


Steffen
*** DBD-ADO-2.4_06-orig/t/02simple.t    Thu Apr 11 05:59:44 2002
--- DBD-ADO-2.4_06/t/02simple.t Mon Apr 15 20:42:29 2002
***************
*** 43,49 ****
        ok( ($rc = select_long($dbh)) eq 1, " test LongTruncOk ON" );
  
        $dbh->{LongTruncOk} = 0;
!       ok( ($rc = select_long($dbh)) eq undef, "test LongTruncOk OFF" );
  }
  
  #
--- 43,49 ----
        ok( ($rc = select_long($dbh)) eq 1, " test LongTruncOk ON" );
  
        $dbh->{LongTruncOk} = 0;
!       ok( ($rc = select_long($dbh)) eq 0, "test LongTruncOk OFF" );
  }
  
  #
***************
*** 249,255 ****
        my $dbh = shift;
        my @row;
        my $sth;
!       my $rc = undef;
        
        $dbh->{RaiseError} = 1;
        $sth = $dbh->prepare("SELECT A,C FROM $ADOTEST::table_name WHERE A=4");
--- 249,255 ----
        my $dbh = shift;
        my @row;
        my $sth;
!       my $rc = 0;
  
        $dbh->{RaiseError} = 1;
        $sth = $dbh->prepare("SELECT A,C FROM $ADOTEST::table_name WHERE A=4");