X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=bin%2Fparse-packages;h=8b132abee525dab852b3c4af3d233ed52b3426b3;hb=91c3dd8756b168de59841b7835339b30dcdce90b;hp=40c4356eed0e140360366b4cb0eb29c360a0b0cd;hpb=b974018eda7ed7c6e6352bb570c1ea5e04ef8147;p=deb%2Fpackages.git

diff --git a/bin/parse-packages b/bin/parse-packages
index 40c4356..8b132ab 100755
--- a/bin/parse-packages
+++ b/bin/parse-packages
@@ -154,9 +154,10 @@ tie %descriptions_db, "DB_File", "descriptions.db.new",
 	or die "Error creating DB: $!";
 open DESCR, "> descriptions.txt" or die "Error creating descriptions textfile";
 for (my $i=1; $i<= $#descriptions; $i++) {
-	my $null_d = $descriptions[$i];
-	$null_d =~ s/\n/\000/g;
-	print DESCR "$null_d\n";
+	my $plain_description = $descriptions[$i];
+	$plain_description =~ s/\n .\n/ /og;
+	$plain_description =~ s/[\n \t]+/ /og;
+	print DESCR "$plain_description\n";
 	$descriptions_db{$i} = $descriptions[$i];
 }
 close DESCR;
@@ -167,6 +168,7 @@ for my $pkg (keys %package_names) {
 	for (my $i=0;$i<length($pkg)-1;$i++) {
 		my $before = substr($pkg, 0, $i);
 		my $after = substr($pkg, $i);
+		$before = "^" if $before eq ""; # otherwise split doesn't work properly
 		$package_postfixes{$after} .= "$before\0";
 	}
 }