X-Git-Url: https://git.deb.at/w?a=blobdiff_plain;ds=sidebyside;f=bin%2Fcreate_index_pages;h=7847d8830f902a566ba9b55755871bccb8219790;hb=becabf1c28f42334fcb730fdf9b57fede1cba296;hp=d76bebab3f58e4cf04b65174a6c26e7ec3353f02;hpb=0400a01d5bbcf0ca210f15b1423d4e90071fa4fd;p=deb%2Fpackages.git 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 '-';