check combined row 3

diff --git a/upari.pl b/upari.pl
index 1e7e1bd..7841a51 100755 (executable)
--- a/upari.pl
+++ b/upari.pl
@@ -104,6 +104,11 @@ foreach my $val ( 1 .. 4 ) {
                        next;
                }
 
+               if ( $row->[3] ne $row->[1] . $row->[2] ) {
+                       $stat->{XX_invalid_combined}->{$val}++;
+                       print "INVALID $file combined [$row->[3]] not [$row->[1]$row->[2]]\n";
+               }
+
                my $c_id = $row->[0];
                my $c_s = $row->[1];
                my $c_r = $row->[2];
@@ -123,6 +128,11 @@ foreach my $val ( 1 .. 4 ) {
                        next;
                }
 
+               if ( $row->[3] ne $row->[1] . $row->[2] ) {
+                       $stat->{XX_invalid_combined_cleanup}->{$val}++;
+                       print "INVALID $file combined [$row->[3]] not [$row->[1]$row->[2]] after cleanup\n";
+               }
+
                my $key_id = $row->[1] . '-' . $row->[2];
 
                $stat->{A_key_id}->{$key_id}->{$val}++;