Kill get_revisions, the one in the base class is better

1 files changed, 0 insertions, 29 deletions

diff --git a/modules/buildsystem/files/Mageia.pm b/modules/buildsystem/files/Mageia.pm
index 539961ab..2f39a1ab 100644
--- a/modules/buildsystem/files/Mageia.pm
+++ b/modules/buildsystem/files/Mageia.pm
@@ -498,35 +498,6 @@ sub get_svn_url {
     $self->{_svn}
 }
 
-sub get_revisions {
-    my ($self, $package, $target, $user_context, $app_context, $filter) = @_;
-    croak "Not a class method" unless ref $self;
-    print "Looking for package $package revisions for $target\n" if $self->{_verbose} > 0;
-
-    my $arch = $app_context->{arch} || $user_context->{arch} || $package->get_arch();
-    my $media_arch = $arch eq 'noarch' ? $self->{_noarch} : $arch;
-    my $path = $arch eq 'src' ? "$target/SRPMS/" : "$target/$media_arch/media";
-    my $media = $self->_get_section($package, $target, $user_context, $app_context);
-    my $name = $package->get_name();
-    my @packages = map { $self->get_package_class()->new(file => $_) }
-	$self->get_files(
-	    $self->{_install_root},
-	    "$path/$media",
-	    $self->get_package_class()->get_pattern(
-		    $name,
-		undef,
-		undef,
-		$package->get_arch(),
-	    )
-	);
-
-    @packages = grep { $filter->($_) } @packages if $filter;
-
-    return
-        sort { $b->compare($a) } # sort by revision order
-        @packages;
-}
-
 sub reject {
     my ($self, $package, $target, $user_context, $app_context) = @_;
     croak "Not a class method" unless ref $self;