[PATCH] DBI::TINYINT constant used instead of DBI::SQL_TINYINT

[Cosimo Streppone]

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