- _move \1,$base."/*",$base."-orig/";
- _system "tar xzf $name-*.tar.gz";
+ _move \1,$origbase."/*",$origbase."-orig/";
+ rmdir $origbase or confess "rmdir $origbase: $!";
+ my @ours;
+ for my $glob ("$name-*.tar.gz") {
+ @ours=glob $glob;
+ confess "Invalid glob $glob: ".join(",",@ours) if 1!=@ours;
+ }
+ my($ourbase)=($ours[0]=~/^(.*)[.]tar[.]gz$/);
+ _system "tar xzf ".$ours[0];