| Subject: | schema may be omitted but is refenced in the code |
use strict;
use warnings;
use DBI;
use DBIx::Table::TestDataGenerator;
my $h = DBI->connect('dbi:Oracle:host=xxx;sid=xxx',
'xxx', 'xxx', {RaiseError => 1});
my $generator = DBIx::Table::TestDataGenerator->new(
dbh => $h,
table => 'xxx',
);
$generator->create_testdata(
target_size => 9,
num_random => 2,
seed => 1,
);
$ perl dbix_table_testdatagenerator.pl
Use of uninitialized value in uc at
/home/martin/perl5/perlbrew/perls/perl-5.16.0/lib/site_perl/5.16.0/DBIx/Table/TestDataGenerator/TableProbe/Oracle.pm
line 94.
sub unique_columns_with_max {
my ( $self, $get_pkey_columns ) = @_;
my $sql;
my $table_name = uc $self->table;
my $schema = uc $self->schema; <------------ here
You don't really have a schema in Oracle so I omitted it and nothing
complained until the error above.
Martin
--
Martin J. Evans
Wetherby, UK