Add back get_distribution_roots, used by Unpack

1 files changed, 16 insertions, 0 deletions

diff --git a/modules/buildsystem/files/Mageia.pm b/modules/buildsystem/files/Mageia.pm
index 509efa7c..ce4ed478 100644
--- a/modules/buildsystem/files/Mageia.pm
+++ b/modules/buildsystem/files/Mageia.pm
@@ -176,6 +176,22 @@ sub get_distribution_paths {
     return $self->_get_distribution_paths($package, $target);
 }
 
+=head2 get_distribution_roots()
+
+Returns distribution roots (ie install_root + target + arch)
+(it returns a list in case of noarch)
+
+=cut
+
+sub get_distribution_roots {
+    my ($self, $package, $target) = @_;
+    croak "Not a class method" unless ref $self;
+
+    map { 
+	$self->_get_dir($self->{_install_root}, $_);
+    } $self->_get_distribution_paths($package, $target);
+}
+
 sub get_archive_path {
     my ($self, $package, $target, $user_context, $app_context) = @_;