17 |
my $c_table; |
my $c_table; |
18 |
my $c_count; |
my $c_count; |
19 |
|
|
20 |
|
# bench time |
21 |
|
my $t = time(); |
22 |
|
|
23 |
sub new { |
sub new { |
24 |
my $class = shift; |
my $class = shift; |
25 |
my $self = {}; |
my $self = {}; |
194 |
|
|
195 |
foreach my $table (keys %Table) { |
foreach my $table (keys %Table) { |
196 |
# FIX |
# FIX |
197 |
|
print STDERR "last operation took ",time()-$t," seconds...\n"; |
198 |
|
$t=time(); |
199 |
print STDERR "creating ord for $table...\n"; |
print STDERR "creating ord for $table...\n"; |
200 |
create_ord($table); |
create_ord($table); |
201 |
undef $sth_cache{$table."select"}; |
undef $sth_cache{$table."select"}; |