- if ($chunk =~ s/^([^\n]+)\n+(.*)$/$1/s) {
- $extra = $2;
- print STDERR "\$extra = [$extra]\n"
- if $anal_merge_debug;
- }
- if (length($chunk) < $len) {
- print STDERR "length(chunk) < $len\n"
- if $anal_merge_debug;
- $chunk=&chunksizealign($chunk,$len,$align);
- print STDERR "chunk = #$chunk#\n"
- if $anal_merge_debug;
- }
- if (length($tag) < $len + 1) {
- $tag= $extra ? $extra : "";
+ if ($chunk =~ s/^([^\n]+)\n+(.*)$/$1/s) {
+ $extra = $2;
+ print STDERR "\$extra = [$extra]\n"
+ if $anal_merge_debug;
+ }
+ if (length($chunk) < $len) {
+ print STDERR "length(chunk) < $len\n"
+ if $anal_merge_debug;
+ $chunk=&chunksizealign($chunk,$len,$align);
+ print STDERR "chunk = #$chunk#\n"
+ if $anal_merge_debug;
+ }
+ if (length($tag) < $len + 1) {
+ $tag= $extra ? $extra : "";