[svn:dbi] r14884 - dbi/trunk/lib/DBI/DBD

[email protected] Tue, 7 Jun 2011 05:51:56 -0700 (PDT)
Newsgroups perl.dbi.changes
Message-ID <[email protected]> 
Author: hmbrand
Date: Tue Jun  7 05:51:55 2011
New Revision: 14884

Modified:
   dbi/trunk/lib/DBI/DBD/SqlEngine.pm

Log:
TYPE is numeric, TYPE_NAME is alphanumeric

Signed-off-by: H.Merijn Brand (Tux) <[email protected]>

Modified: dbi/trunk/lib/DBI/DBD/SqlEngine.pm
==============================================================================
--- dbi/trunk/lib/DBI/DBD/SqlEngine.pm	(original)
+++ dbi/trunk/lib/DBI/DBD/SqlEngine.pm	Tue Jun  7 05:51:55 2011
@@ -877,7 +877,8 @@
 
     $attrib eq "NAME" and return [ $sth->sql_get_colnames() ];
 
-    $attrib eq "TYPE"      and return [ ("CHAR") x scalar $sth->sql_get_colnames() ];
+    $attrib eq "TYPE"      and return [ (DBI::SQL_VARCHAR()) x scalar $sth->sql_get_colnames() ];
+    $attrib eq "TYPE_NAME" and return [ ("VARCHAR") x scalar $sth->sql_get_colnames() ];
     $attrib eq "PRECISION" and return [ (0) x scalar $sth->sql_get_colnames() ];
     $attrib eq "NULLABLE"  and return [ (1) x scalar $sth->sql_get_colnames() ];