18 |
|
|
19 |
=head1 VERSION |
=head1 VERSION |
20 |
|
|
21 |
Version 0.07 |
Version 0.08 |
22 |
|
|
23 |
=cut |
=cut |
24 |
|
|
25 |
our $VERSION = '0.07'; |
our $VERSION = '0.08'; |
26 |
|
|
27 |
=head1 SYNOPSIS |
=head1 SYNOPSIS |
28 |
|
|
194 |
|
|
195 |
foreach my $sf (@r_sf) { |
foreach my $sf (@r_sf) { |
196 |
$errors->{$f}->{subfield}->{extra_repeatable}->{$sf}++; |
$errors->{$f}->{subfield}->{extra_repeatable}->{$sf}++; |
197 |
$errors->{$f}->{dump} = |
$errors->{$f}->{dump} = _pack_subfields_hash( $h, 1 ); |
|
join('', _pack_subfields_hash( $h, 1 ) ); |
|
198 |
} |
} |
199 |
|
|
200 |
} |
} |
210 |
} |
} |
211 |
} elsif (ref($v) eq 'HASH') { |
} elsif (ref($v) eq 'HASH') { |
212 |
$errors->{$f}->{unexpected_subfields}++; |
$errors->{$f}->{unexpected_subfields}++; |
213 |
$errors->{$f}->{dump} = |
$errors->{$f}->{dump} = _pack_subfields_hash( $v, 1 ); |
|
join('', _pack_subfields_hash( $v, 1 ) ); |
|
214 |
} |
} |
215 |
} |
} |
216 |
} |
} |
292 |
|
|
293 |
if ($k eq 'dump') { |
if ($k eq 'dump') { |
294 |
$dump = $tree->{dump}; |
$dump = $tree->{dump}; |
295 |
warn "## dump: ",dump($dump),"\n"; |
# warn "## dump: ",dump($dump),"\n"; |
296 |
next; |
next; |
297 |
} |
} |
298 |
|
|