TT#133502 Remove using of Data::Compare module

Before the logic was - compare 2 structures and if they are different
analyze every element and exception list.
But there is no sense to do this 1st comparison as they are always
different that's why we have exception list. So remove this module.

Also add perl:Depends to dependencies.

Change-Id: Ia7e1628108d823601a9cd6e6ce14310b9afba795
bookworm/master
Mykola Malkov 3 years ago
parent bddc4d6152
commit 624ec43bfc

1
debian/control vendored

@ -17,6 +17,7 @@ Depends:
net-tools,
procps,
${misc:Depends},
${perl:Depends},
Suggests:
asterisk,
mariadb-server,

@ -4,7 +4,6 @@ use strict;
use warnings;
use DBI;
use Data::Compare;
use Getopt::Long;
use Carp;
@ -183,9 +182,7 @@ foreach my $schema ( split( / /, $argv->{schemes} ) ) {
$struct1 = $dbh1->selectall_hashref( $queries->{$obj}, 'key_col' );
$struct2 = $dbh2->selectall_hashref( $queries->{$obj}, 'key_col' );
unless ( Compare($struct1, $struct2) ) {
print_diff($struct1, $struct2, $obj, $res, $schema);
}
print_diff($struct1, $struct2, $obj, $res, $schema);
}
}

Loading…
Cancel
Save