From: Frank Lichtenheld <frank@lichtenheld.de>
Date: Mon, 22 Oct 2007 00:44:59 +0000 (+0000)
Subject: Two hotfixes for breakages due to the short desc changes
X-Git-Url: https://git.deb.at/w?a=commitdiff_plain;h=573a8b55f76dda1151b69aca879bda6d4f3a9d8e;p=deb%2Fpackages.git

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 d76beba..7847d88 100755
--- 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 e5b9e88..9be98d5 100644
--- 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;