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