Add more debug when we fail to find Packages data for some reason

This commit is contained in:
Steve McIntyre 2011-11-28 16:20:50 +00:00
parent 24373c514f
commit 0bb4c00e03
1 changed files with 6 additions and 0 deletions

View File

@ -949,10 +949,16 @@ sub add_Packages_entry {
if ($arch eq "source") {
m/^Directory: (\S+)/mi and $file = $1;
if (!defined($file)) {
die "Can't parse source file information out of $_\n";
}
$pdir = Packages_dir($dir, $file, $section) . "/source";
$pkgfile = "$pdir/Sources";
} else {
m/^Filename: (\S+)/mi and $file = $1;
if (!defined($file)) {
die "Can't parse binary file information out of $_\n";
}
$pdir = Packages_dir($dir, $file, $section) . "/binary-$arch";
$pkgfile = "$pdir/Packages";
}