Revision history for Perl extension DBIx::DBSchema.
+0.22 unreleased
+ - Pg reverse-engineering fix: varchar with no limit
+
0.21 Thu Sep 19 05:04:18 PDT 2002
- Pg reverse-engineering fix: now sets default
use vars qw($VERSION @ISA %typemap);
use DBIx::DBSchema::DBD;
-$VERSION = '0.05';
+$VERSION = '0.06';
@ISA = qw(DBIx::DBSchema::DBD);
%typemap = (
};
my $len = '';
- if ( $_->{attlen} == -1 && $_->{typname} ne 'text' ) {
+ if ( $_->{attlen} == -1 && $_->{atttypmod} != -1
+ && $_->{typname} ne 'text' ) {
$len = $_->{atttypmod} - 4;
if ( $_->{typname} eq 'numeric' ) {
$len = ($len >> 16). ','. ($len & 0xffff);