Two hotfixes for breakages due to the short desc changes

That's what you get for rushing changes. Will be fixed properly
in master.

diff --git a/bin/create_index_pages b/bin/create_index_pages
index d76bebab3f58e4cf04b65174a6c26e7ec3353f02..7847d8830f902a566ba9b55755871bccb8219790 100755 (executable)
--- a/bin/create_index_pages
+++ b/bin/create_index_pages
@@ -106,7 +106,7 @@ while (my ($pkg, $data) = each %packages) {
     my ($virt, $p_data) = split /\000/o, $data, 2;
     %virt = split /\01/o, $virt; 
     foreach (split /\000/o, $p_data||'') {
-       my @data = split ( /\s/o, $_, 8 );
+       my @data = split ( /\s/o, $_, 9 );
        $pkg{$data[1]} ||= new Packages::Page( $pkg );
        $pkg{$data[1]}->merge_package( { package => $pkg,
                                         archive => $data[0],
@@ -116,7 +116,7 @@ while (my ($pkg, $data) = each %packages) {
                                         subsection => $data[4],
                                         priority => $data[5],
                                         version => $data[6],
-                                        description => $data[7] } );
+                                        description => $data[8] } );
     }
     foreach (keys %virt) {
        next if $_ eq '-';

diff --git a/lib/Packages/DoNewPkg.pm b/lib/Packages/DoNewPkg.pm
index e5b9e88a3ca9148208dae1ddb601581d13c6c8bf..9be98d54aba8b0724c13106b7d8cf077220116b2 100644 (file)
--- a/lib/Packages/DoNewPkg.pm
+++ b/lib/Packages/DoNewPkg.pm
@@ -45,7 +45,7 @@ sub do_newpkg {
     };
     while (<NEWPKG>) {
        chomp;
-       my @data = split /\s/, $_, 10;
+       my @data = split /\s/, $_, 11;
 
        next unless $data[2]; #removed packages
        next unless $data[3] eq $suite;