_system "make distdir";
# Copy 'orig' archive after &_prepdist which would delete it.
my @origs;
+ my $base;
for my $glob ("orig-$name-*.tar.{gz,Z,bz2}") {
@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/;
+ $origs[0]=~/^orig-([^-]+)-(.*)([.]tar[.][^.]+)$/;
+ my $deborig="$1_$2.orig$3";
+ $base="$1-$2";
_copy $origs[0],$deborig;
}
}
@subdirs=glob $glob;
confess "Invalid glob $glob: ".join(",",@subdirs) if 1!=@subdirs;
}
- _system(join(" ","cd ".$subdirs[0].";dpkg-buildpackage",
+ rename $subdirs[0],$base or confess "$!";
+ _system(join(" ","cd ".$base.";dpkg-buildpackage",
"-rfakeroot",
($args{"sign"} ? () : ("-us","-uc")),
));
- _remove \1,$subdirs[0];
+ _remove \1,$base;
_system "ls -l ${name}*_[0-9]*";
exit 0; # should never return
}