This is going to be processing .dsc's tarballs directly, so we need
slightly better error reporting.
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
# changes into the subdir
my (@dirs) = <*/.>;
# changes into the subdir
my (@dirs) = <*/.>;
- die "@dirs ?" unless @dirs==1;
+ die "expected one subdir but found @dirs ?" unless @dirs==1;
$dirs[0] =~ m#^([^/]+)/\.$# or die;
my $dir = $1;
changedir $dir;
$dirs[0] =~ m#^([^/]+)/\.$# or die;
my $dir = $1;
changedir $dir;