sub binarytosource {
my ($binname, $binver, $binarch) = @_;
# TODO: This gets hit a lot, especially from buggyversion() - probably
# need an extra cache for speed here.
sub binarytosource {
my ($binname, $binver, $binarch) = @_;
# TODO: This gets hit a lot, especially from buggyversion() - probably
# need an extra cache for speed here.