fix calcrom to accept strings.s

This commit is contained in:
theo3 2020-08-08 14:15:46 -07:00
parent 001bf63c61
commit 0cb4a64f67
1 changed files with 7 additions and 1 deletions

View File

@ -58,11 +58,17 @@ while (my $line = <$file>)
} }
elsif ($dir eq 'data') elsif ($dir eq 'data')
{ {
if ($basename =~ /(strings)/)
{
$srcdata += $size;
}
else {
$data += $size; $data += $size;
} }
} }
} }
} }
}
my @sorted = sort { $a->[1] <=> $b->[1] } @pairs; my @sorted = sort { $a->[1] <=> $b->[1] } @pairs;