Use of uninitialized value at
/usr/local/lib/perl5/site_perl/5.005/DBIx/DBSchema/Column.pm line 251.
errors
correct Column::line returns a scalar, not a list.
test the DBD drivers too
0.19 (test) release
package DBIx::DBSchema::Column;
use strict;
package DBIx::DBSchema::Column;
use strict;
+use vars qw(@ISA $VERSION);
#use Carp;
#use Exporter;
#@ISA = qw(Exporter);
@ISA = qw();
#use Carp;
#use Exporter;
#@ISA = qw(Exporter);
@ISA = qw();
=head1 NAME
DBIx::DBSchema::Column - Column objects
=head1 NAME
DBIx::DBSchema::Column - Column objects
- $type.
- ( defined($self->length) && $self->length ? '('.$self->length.')' : '' ),
+ $type. ( ( defined($self->length) && $self->length )
+ ? '('.$self->length.')'
+ : ''
+ ),
$null,
( ( defined($default) && $default ne '' )
? 'DEFAULT '. $default
: ''
),
$null,
( ( defined($default) && $default ne '' )
? 'DEFAULT '. $default
: ''
),
- ( ( $driver eq 'mysql' )
+ ( ( $driver eq 'mysql' && defined($self->local) )
? $self->local
: ''
),
);
$dbh->disconnect if $created_dbh;
? $self->local
: ''
),
);
$dbh->disconnect if $created_dbh;
use vars qw(@ISA %create_params);
#use Carp;
#use Exporter;
use vars qw(@ISA %create_params);
#use Carp;
#use Exporter;
-use DBIx::DBSchema::Column;
+use DBIx::DBSchema::Column 0.02;
use DBIx::DBSchema::ColGroup::Unique;
use DBIx::DBSchema::ColGroup::Index;
use DBIx::DBSchema::ColGroup::Unique;
use DBIx::DBSchema::ColGroup::Index;
# #change it back afterwords :/
# }
# #change it back afterwords :/
# }
- my(@columns)=map { $self->column($_)->line($dbh) } $self->columns;
+ my @columns = map { $self->column($_)->line($dbh) } $self->columns;
push @columns, "PRIMARY KEY (". $self->primary_key. ")"
#if $self->primary_key && $driver ne 'Pg';
push @columns, "PRIMARY KEY (". $self->primary_key. ")"
#if $self->primary_key && $driver ne 'Pg';
BEGIN { $| = 1; print "1..1\n"; }
END {print "not ok 1\n" unless $loaded;}
use DBIx::DBSchema;
BEGIN { $| = 1; print "1..1\n"; }
END {print "not ok 1\n" unless $loaded;}
use DBIx::DBSchema;
+use DBIx::DBSchema::DBD::Pg;
+use DBIx::DBSchema::DBD::mysql;
$loaded = 1;
print "ok 1\n";
$loaded = 1;
print "ok 1\n";