- my $source_version = $page->get_newest( 'source-version' )
- || $version;
- debug( "find source package: source=$source (=$source_version)", 1);
- my $src_data = $sources_all{"$source $source_version"};
- unless ($src_data) { #fucking binNMUs
- my $versions = $page->get_versions;
- my $sources = $page->get_arch_field( 'source' );
- my $source_versions = $page->get_arch_field( 'source-version' );
- foreach (version_sort keys %$versions) {
- $source = $sources->{$versions->{$_}[0]};
- $source = $source_versions->{$versions->{$_}[0]}
- || $version;
- $src_data = $sources_all{"$source $source_version"};
- last if $src_data;
- }
- error( "couldn't find source package" ) unless $src_data;
- }
- $page->add_src_data( $source, $source_version, $src_data )
+ $archive = $page->get_newest( 'archive' );
+ debug( "find source package: source=$source", 1);
+ my $src_data = $sources_all{"$archive $suite $source"};
+ $page->add_src_data( $source, $src_data )