parse-packages: Unbreak descriptions handling

Earlier I broke the descriptions handling by storing the
description trimmed for search in place of the original
one.

diff --git a/bin/parse-packages b/bin/parse-packages
index b0883a279da39798715b9b9a0a67eb73527ecd45..11e0ef0ef6a4579686ffe48591a776f371066678 100755 (executable)
--- a/bin/parse-packages
+++ b/bin/parse-packages
@@ -269,6 +269,7 @@ print "Index $#descriptions descriptions\n";
 for (my $i=1; $i<= $#descriptions; $i++) {
        # strip away additional data
        my ($only_desc, $pkg, $tags) = split /\000/o, $descriptions[$i], 3;
+       my $orig_desc = $only_desc;
 # WARNING: This needs to correspond with what happens in
 # Packages/Search.pm:do_xapian_search
        $only_desc =~ s#[^\w/+]+# #og;
@@ -316,7 +317,7 @@ for (my $i=1; $i<= $#descriptions; $i++) {
        };
        die $@ if $@;
 
-       $descriptions_db{$i} = $only_desc;
+       $descriptions_db{$i} = $orig_desc;
 }
 untie %descriptions_db;
 $xapian_db->flush;