I've applied this to the DBI but it really needs to be applied to
the DBD::File distribution (which the DBI should then be updated to).
(CC'd to Jeff Zucker)
Tim.
On Tue, Jun 27, 2006 at 10:27:47AM +0200, Cosimo Streppone wrote:
> I think that DBD::File at line 392 has a mistake in
> DBI::SQL_TINYINT() constant name.
>
> Attached is a patch against DBI 1.51 (and DBD::File v0.34)
> that should solve this problem.
>
> The actual result of this problem is the following error message:
>
> Can't locate auto/DBI/TINYINT.al in @INC (@INC contains: ... .) at
> /opt/perl/lib/site_perl/5.8.6/x86_64-linux/DBD/File.pm line 384
>
> I didn't understand clearly what triggers the error,
> may be the `quote($value, $type)' call?
>
> If useful to you, I can also file a bug on rt.cpan.org.
>
> --
> Cosimo
>
> diff -u -Naur DBI-1.51/lib/DBD/File.pm DBI-1.51_cosimo/lib/DBD/File.pm
> --- DBI-1.51/lib/DBD/File.pm 2005-03-14 17:39:17.000000000 +0100
> +++ DBI-1.51_cosimo/lib/DBD/File.pm 2006-06-27 09:54:36.087829379 +0200
> @@ -389,7 +389,7 @@
> $type == DBI::SQL_FLOAT() ||
> $type == DBI::SQL_REAL() ||
> $type == DBI::SQL_DOUBLE() ||
> - $type == DBI::TINYINT())) {
> + $type == DBI::SQL_TINYINT())) {
> return $str;
> }
> if (!defined($str)) { return "NULL" }
