Some random idea's and thoughts

[deb/packages.git] / bin / parse-packages

diff --git a/bin/parse-packages b/bin/parse-packages
index 40c4356eed0e140360366b4cb0eb29c360a0b0cd..8b132abee525dab852b3c4af3d233ed52b3426b3 100755 (executable)
--- 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";
        }
 }