for my $glob ("orig-$name-*.tar.{gz,Z,bz2}") {
@origs=glob $glob;
if (@origs) {
confess "Invalid glob $glob: ".join(",",@origs) if 1!=@origs;
for my $glob ("orig-$name-*.tar.{gz,Z,bz2}") {
@origs=glob $glob;
if (@origs) {
confess "Invalid glob $glob: ".join(",",@origs) if 1!=@origs;