X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=bin%2Fparse-contents;h=541cba24beff985572e0b6f9a25198ebc0a81bd0;hb=15ff8be69313dffae9e18b9fde479a3e74ea1ad3;hp=550b6eeafeb5c01883a4dc7258c6ce3c0cab7ca9;hpb=5eaeeea2aae68dd37e728d66e7d1e2458e6e7a33;p=deb%2Fpackages.git

diff --git a/bin/parse-contents b/bin/parse-contents
index 550b6ee..541cba2 100755
--- a/bin/parse-contents
+++ b/bin/parse-contents
@@ -35,6 +35,7 @@ my $SORT_REVERSE_CONCURRENTLY = 1;
 
 use DB_File;
 use Storable;
+use File::Path;
 use Packages::Config qw( $TOPDIR $DBDIR @ARCHIVES @SUITES @ARCHITECTURES );
 &Packages::Config::init( './' );
 
@@ -43,6 +44,7 @@ my @suites = @SUITES;
 my @archs = @ARCHITECTURES;
 
 $DBDIR .= "/contents";
+-d $DBDIR || mkpath( $DBDIR );
 
 for my $archive (@archives) { for my $suite (@suites) {
 
@@ -64,9 +66,10 @@ for my $archive (@archives) { for my $suite (@suites) {
 	$extra = "|sort" if $SORT_REVERSE_CONCURRENTLY;
 
 	open REVERSED, "$extra>$DBDIR/reverse.tmp"
-		or die "Failed to open output reverse file";
+		or die "Failed to open output reverse file: $!";
 
-	open CONT, "zcat $filename|$what";
+	open CONT, "zcat $filename|$what"
+		or die $!;
 	while (<CONT>) {last if /^FILE/mo;}
 	while (<CONT>) {
 		my $data = "";