8 |
#$out->{'SC +'}->{ $_ }++ foreach @{ $rec->{SC} }; |
#$out->{'SC +'}->{ $_ }++ foreach @{ $rec->{SC} }; |
9 |
|
|
10 |
# FIXME out of memory without md5 |
# FIXME out of memory without md5 |
11 |
#$out->{'C1 +'}->{ md5($_) }++ foreach @{ $rec->{C1} }; |
#$out->{'C1 +'}->{ $_ }++ foreach @{ $rec->{C1} }; |
12 |
$out->{'CR +'}->{ md5($_) }++ foreach @{ $rec->{CR} }; |
#$out->{'C1 +'}->{ digest($_) }++ foreach @{ $rec->{C1} }; |
13 |
|
$out->{'CR +'}->{ digest($_) }++ foreach @{ $rec->{CR} }; |
14 |
|
|
15 |
|
my $cr = 1; |
16 |
|
my $nr = $out->{_debug}->{nr}++; |
17 |
|
#$out->{'CR +'}->{ "$nr." . $cr++ }++ foreach @{ $rec->{CR} }; |
18 |
|
|
19 |
# XXX dump first record |
# XXX dump first record |
20 |
#$out->{_debug_rec} ||= $rec; |
#$out->{_debug_rec} ||= $rec; |