DBD::ADO, table_info, new style interface

[Steffen Goeldner]

Attached is a patch for DBD::ADO that provides both -
the new and the old - interfaces.


Steffen
*** DBD-ADO-2.4/lib/DBD/ADO.pm  Wed Oct 24 04:41:30 2001
--- ADO.pm      Thu Oct 25 14:37:46 2001
***************
*** 638,643 ****
--- 638,649 ----
  
        sub table_info {
                my($dbh, $attribs) = @_;
+               $attribs = {
+                       TABLE_CAT   => $_[1],
+                       TABLE_SCHEM => $_[2],
+                       TABLE_NAME  => $_[3],
+                       TABLE_TYPE  => $_[4],
+               } unless ref $attribs eq 'HASH';
                my @tp;
                
                my @criteria = (undef); # ADO needs at least one element in the 
criteria array!