172 |
if ($last && |
if ($last && |
173 |
$last->[0] eq $row->[0] && # check if field is same |
$last->[0] eq $row->[0] && # check if field is same |
174 |
$last->[1] eq $row->[1] && # check for i1 |
$last->[1] eq $row->[1] && # check for i1 |
175 |
$last->[2] eq $row->[2] # and for i2 |
$last->[2] eq $row->[2] && # and for i2 |
176 |
|
$last->[3] ne $row->[3] # and subfield is different |
177 |
) { |
) { |
178 |
push @$last, ( $row->[3] , $row->[4] ); |
push @$last, ( $row->[3] , $row->[4] ); |
179 |
warn "## ++ added $row->[0] ^$row->[3] to $last->[0]\n"; |
warn "## ++ added $row->[0] ^$row->[3] to $last->[0]\n"; |