for my $pkg_ver_arch (make_list($args{versions})) {
my ($pkg,$ver,$arch) = $pkg_ver_arch =~ m{^([^/]+)/([^/]+)/?([^/]*)$} or
confess("Invalid version key: $pkg_ver_arch");
for my $pkg_ver_arch (make_list($args{versions})) {
my ($pkg,$ver,$arch) = $pkg_ver_arch =~ m{^([^/]+)/([^/]+)/?([^/]*)$} or
confess("Invalid version key: $pkg_ver_arch");