X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=cgi-bin%2Fshow_package.pl;h=2ec4616d548512a01d733b6352673ffaf6364ffc;hb=dc9512b1309f4c8c6bd1171b543183e8ac8b2115;hp=5e7cfe2bbf59cb41b45681467449bbcb9b39243e;hpb=9d463c289353df50118033b581bc60bd291c9d01;p=deb%2Fpackages.git

diff --git a/cgi-bin/show_package.pl b/cgi-bin/show_package.pl
index 5e7cfe2..2ec4616 100755
--- a/cgi-bin/show_package.pl
+++ b/cgi-bin/show_package.pl
@@ -154,13 +154,17 @@ unless (@Packages::CGI::fatal_errors) {
 		for my $entry (@results) {
 		    debug( join(":", @$entry), 1 );
 		    my (undef, $archive, undef, $arch, $section, $subsection,
-			$priority, $version) = @$entry;
+			$priority, $version, @provided_by) = @$entry;
 		    
-		    my %data = split /\000/, $packages_all{"$pkg $arch $version"};
-		    $data{package} = $pkg;
-		    $data{architecture} = $arch;
-		    $data{version} = $version;
-		    $page->merge_package(\%data) or debug( "Merging $pkg $arch $version FAILED", 2 );
+		    if ($arch ne 'virtual') {
+			my %data = split /\000/, $packages_all{"$pkg $arch $version"};
+			$data{package} = $pkg;
+			$data{architecture} = $arch;
+			$data{version} = $version;
+			$page->merge_package(\%data) or debug( "Merging $pkg $arch $version FAILED", 2 );
+		    } else {
+			$page->add_provided_by(\@provided_by);
+		    }
 		}
 
 		$version = $page->{newest};