+ # Copy 'orig' archive after &_prepdist which would delete it.
+ my @origs;
+ for my $glob ("orig-$name-*.tar.{gz,Z}") {
+ @origs=glob $glob;
+ if (@origs) {
+ confess "Invalid glob $glob: ".join(",",@origs) if 1!=@origs;
+ (my $deborig=$origs[0])=~s/^orig-([^-]+)-(.*)([.]tar[.][^.]+)$/$1_$2.orig$3/;
+ _copy $origs[0],$deborig;
+ }
+ }
+ my @subdirs;
+ for my $glob ("$name-*") {
+ @subdirs=glob $glob;
+ confess "Invalid glob $glob: ".join(",",@subdirs) if 1!=@subdirs;
+ }
+ _system(join(" ","cd ".$subdirs[0].";dpkg-buildpackage",