X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=lib%2FPackages%2FSrcPage.pm;h=62e8f7f62d289fd4c9f34c2f92c302d53bc8a549;hb=a6b39cb5eec2cf7d8a0d756f0090a9d8644443c9;hp=b1d83d4cc761dec729765348adebec41c6371ae5;hpb=e0340162e87a8f62367d0b41243836eb256444e7;p=deb%2Fpackages.git diff --git a/lib/Packages/SrcPage.pm b/lib/Packages/SrcPage.pm index b1d83d4..62e8f7f 100644 --- a/lib/Packages/SrcPage.pm +++ b/lib/Packages/SrcPage.pm @@ -22,8 +22,6 @@ sub merge_data { return $self->merge_package( \%data ); } -sub gettext { return $_[0]; } - our @DEP_FIELDS = qw( build-depends build-depends-indep build-conflicts build-conflicts-indep); sub merge_package { @@ -32,11 +30,11 @@ sub merge_package { ($data->{package} && $data->{suite} && $data->{archive}) || return; $self->{package} ||= $data->{package}; ($self->{package} eq $data->{package}) || return; - debug( "merge package $data->{package}/$data->{version} into $self (".($self->{version}||'').")", 2 ); + debug( "merge package $data->{package}/$data->{version} into $self (".($self->{version}||'').")", 2 ) if DEBUG; if (!$self->{version} || (version_cmp( $data->{version}, $self->{version} ) > 0)) { - debug( "added package is newer, replacing old information" ); + debug( "added package is newer, replacing old information" ) if DEBUG; $self->{data} = $data; @@ -66,6 +64,8 @@ sub merge_package { $self->{version} = $data->{version}; } + + return 1; } #FIXME: should be mergable with the Packages::Page version