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" }