On Mon, Nov 08, 2004 at 10:14:52AM +0100, Steffen Goeldner wrote:
> Hi Tim,
>
> belatedly congratulations for your Oracle award. Is it true that
> it's endowed with a 1/2 year-long free Metalink access?
Not that I'm aware of. No endowments at all :)
> 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.
Thanks. The $VERSION probably shouldn't be lexical.
Tim.
>
> 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
