X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSchema%2FLoader%2FDBI%2FODBC%2FFirebird.pm;h=fba60bc12f46dcb58964f8797f11d6506ec1f14e;hb=494e020541e534ac7a097872eeeb344a0b13ec5a;hp=47a1e2aaf47c9b0bca2099397879317a09717e7e;hpb=f8c2ca5eac1d4782c1d5be369c9bd0dcf680cb9d;p=dbsrgits%2FDBIx-Class-Schema-Loader.git diff --git a/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Firebird.pm b/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Firebird.pm index 47a1e2a..fba60bc 100644 --- a/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Firebird.pm +++ b/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Firebird.pm @@ -36,7 +36,7 @@ sub _dbh_type_info_type_name { my $type_info = $dbh->type_info($type_num); return undef if not $type_info; - + my $type_name = $type_info->{TYPE_NAME}; # fix up truncated type names