die if !$redundant;
my $saved=eval($addr)+1-eval($redundant_addr);
$saved_total+=$saved;
- print "saved=$saved:\n$redundant_text\nsaved_total=$saved_total\n" if !$quiet;
+ print "saved=$saved:\n${redundant_text}saved_total=$saved_total\n\n" if !$quiet;
$redundant=0;
}
while (<F>) {
$redundant_text.=$_ if !$quiet;
}
my $spacesl=length $spaces or die;
- if ($rest=~/DW_FORM_addr.*0x0000000000000000/) {
+ if ($rest=~/\bDW_FORM_addr\b.*0x0000000000000000|\bDW_AT_signature\b/) {
next if $redundant;
$redundant=$spacesl;
$redundant_text=$die_text if !$quiet;