| Subject: | Small bug in code generated by DBI::DBD::Metadata::write_getinfo_pm |
The DBD::$Driver::GetInfo code that DBI::DBD::Metadata::write_getinfo_pm
writes contains a small error; part of the resulting code looks like:
my $sql_ver_fmt = '%02d.%02d.%04d'; # ODBC version string: ##.##.#####
my $sql_driver_ver = sprintf $sql_ver_fmt, split (/./, $DBD::Foo::VERSION);
The split should read:
split (/\./, $DBD::Foo::VERSION);
Because this is being generated as part of an interpolated HEREDOC,
the \ needs to be doubled. Patch attached.
--- /usr/local/lib/perl5/site_perl/5.6.1/i686-linux/DBI/DBD/Metadata.pm Fri Mar 7 17:00:22 2003
+++ Metadata.pm Tue Mar 18 07:24:16 2003
@@ -138,7 +138,7 @@
my \$sql_driver = '${driver}';
my \$sql_ver_fmt = '%02d.%02d.%04d'; # ODBC version string: ##.##.#####
-my \$sql_driver_ver = sprintf \$sql_ver_fmt, split (/\./, \$DBD::${driver}::VERSION);
+my \$sql_driver_ver = sprintf \$sql_ver_fmt, split (/\\./, \$DBD::${driver}::VERSION);
PERL
my $kw_map = 0;