| 162 |
# print Dumper($tr); |
# print Dumper($tr); |
| 163 |
} |
} |
| 164 |
|
|
| 165 |
# all colums (for insert) |
# all columns (for insert) |
| 166 |
my @cols = @{$mscheme->cols($table)}; |
my @cols = @{$mscheme->cols($table)}; |
| 167 |
|
|
| 168 |
# colums compared by a=b |
# columns compared by a=b |
| 169 |
my @cols_notnull = @{$mscheme->cols_notnull($table)}; |
my @cols_notnull = @{$mscheme->cols_notnull($table)}; |
| 170 |
|
|
| 171 |
# colums compared by a=b or a is null and b is null |
# columns compared by a=b or a is null and b is null |
| 172 |
my @cols_null = @{$mscheme->cols_null($table)}; |
my @cols_null = @{$mscheme->cols_null($table)}; |
| 173 |
|
|
| 174 |
# primary key columns |
# primary key columns |
| 178 |
my @cols_cmp = @{$mscheme->cols_notpk($table)}; |
my @cols_cmp = @{$mscheme->cols_notpk($table)}; |
| 179 |
|
|
| 180 |
my @cols_skip; # skipped columns |
my @cols_skip; # skipped columns |
| 181 |
my @cols_test; # all colums to test (without skipped) |
my @cols_test; # all columns to test (without skipped) |
| 182 |
|
|
| 183 |
foreach my $row (@{$mscheme->pg_attribute($table)}) { |
foreach my $row (@{$mscheme->pg_attribute($table)}) { |
| 184 |
# attname format_type attnotnull atthasdef attnum default references |
# attname format_type attnotnull atthasdef attnum default references |
Parent Directory
| 
Revision Log
| 
Patch