DBI::DBD::Metadata: VERSION, SQL_DRIVER_NAME

[Steffen Goeldner]

Hi Tim,
belatedly congratulations for your Oracle award. Is it true that
it's endowed with a 1/2 year-long free Metalink access?
Attached is a small patch for DBI::DBD::Metadata. $VERSION is
a lexical (why?), thus I dropped the package names.
I added a special handler for the SQL_DRIVER_NAME case, because
the file name of the ODBC library isn't what we want here.
Steffen
--- Metadata.orig       Sun Feb 01 11:16:26 2004
+++ Metadata.pm Sat Nov 06 22:07:39 2004
@@ -110,7 +110,7 @@
 # Transfer this to ${driver}.pm
 
 # The get_info function was automatically generated by
-# DBI::DBD::Metadata::write_getinfo_pm v$DBI::DBD::Metadata::VERSION.
+# DBI::DBD::Metadata::write_getinfo_pm v$VERSION.
 
 package DBD::${driver}::db;         # This line can be removed once 
transferred.
 
@@ -125,7 +125,7 @@
 # Transfer this to lib/DBD/${driver}/GetInfo.pm
 
 # The \%info hash was automatically generated by
-# DBI::DBD::Metadata::write_getinfo_pm v$DBI::DBD::Metadata::VERSION.
+# DBI::DBD::Metadata::write_getinfo_pm v$VERSION.
 
 package DBD::${driver}::GetInfo;
 
@@ -186,6 +186,9 @@
         elsif ($key eq 'SQL_KEYWORDS') {
             $val = ($kw_map) ? '\&sql_keywords' : 'undef';
         }
+        elsif ($key eq 'SQL_DRIVER_NAME') {
+            $val = "\$INC{'DBD/$driver.pm'}";
+        }
         elsif ($key eq 'SQL_DRIVER_VER') {
             $val = '$sql_driver_ver';
         }
@@ -316,7 +319,7 @@
 # Transfer this to ${driver}.pm
 
 # The type_info_all function was automatically generated by
-# DBI::DBD::Metadata::write_typeinfo_pm v$DBI::DBD::Metadata::VERSION.
+# DBI::DBD::Metadata::write_typeinfo_pm v$VERSION.
 
 package DBD::${driver}::db;         # This line can be removed once 
transferred.
 
@@ -331,7 +334,7 @@
 # Don't forget to add version and intellectual property control information.
 
 # The \%type_info_all hash was automatically generated by
-# DBI::DBD::Metadata::write_typeinfo_pm v$DBI::DBD::Metadata::VERSION.
+# DBI::DBD::Metadata::write_typeinfo_pm v$VERSION.
 
 package DBD::${driver}::TypeInfo;
 
@@ -484,7 +487,7 @@
 
 Jonathan Leffler <[EMAIL PROTECTED]> (previously <[EMAIL PROTECTED]>),
 Jochen Wiedmann <[EMAIL PROTECTED]>,
-Steffen Goeldner <[EMAIL PROTECTED]>,
+Steffen Goeldner <[EMAIL PROTECTED]>,
 and Tim Bunce <[EMAIL PROTECTED]>.
 
 =cut