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

--------------080302070000000302070906
Content-Type: text/plain; charset=ISO-8859-15; format=flowed
Content-Transfer-Encoding: 7bit

I think that DBD::File at line 392 has a mistake in
DBI::SQL_TINYINT() constant name (`DBI::TINYINT').

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



--------------080302070000000302070906
Content-Type: text/x-patch;
name="dbi_tinyint.patch"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
filename="dbi_tinyint.patch"

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


--------------080302070000000302070906--