current/SOURCES/Youri-Repository-0.1.1-replaced-noarch.patch

--- Youri-Repository-0.1.1/lib/Youri/Repository.pm      2012-02-12 19:41:50.000000000 +0100
+++ Youri-Repository-0.1.1/lib/Youri/Repository.pm      2015-11-01 23:47:57.315886548 +0100
@@ -16,6 +16,7 @@
 use Carp;
 use File::Basename;
 use Youri::Package;
+use List::MoreUtils qw/uniq/;
 use version; our $VERSION = qv('0.1.1');
 
 =head1 CLASS METHODS
@@ -269,7 +269,8 @@ sub get_replaced_packages {
 
     # noarch packages are potentially linked from other directories
     my @arches = $package->get_arch() eq 'noarch' ?
-                 $self->get_extra_arches() : ( $package->get_arch() );
+                     ( $self->get_extra_arches(), 'noarch' ) :
+                     ( $package->get_arch(), 'noarch' );
     foreach my $arch (@arches) {
         push(@list, $self->get_older_revisions(
             $package,
@@ -300,7 +301,7 @@
         ));
     }
 
-    return @list;
+    return uniq(@list);
 }
 
 =head2 get_files($path, $pattern)
1	--- Youri-Repository-0.1.1/lib/Youri/Repository.pm 2012-02-12 19:41:50.000000000 +0100
2	+++ Youri-Repository-0.1.1/lib/Youri/Repository.pm 2015-11-01 23:47:57.315886548 +0100
3	@@ -16,6 +16,7 @@
4	use Carp;
5	use File::Basename;
6	use Youri::Package;
7	+use List::MoreUtils qw/uniq/;
8	use version; our $VERSION = qv('0.1.1');
9
10	=head1 CLASS METHODS
11	@@ -269,7 +269,8 @@ sub get_replaced_packages {
12
13	# noarch packages are potentially linked from other directories
14	my @arches = $package->get_arch() eq 'noarch' ?
15	- $self->get_extra_arches() : ( $package->get_arch() );
16	+ ( $self->get_extra_arches(), 'noarch' ) :
17	+ ( $package->get_arch(), 'noarch' );
18	foreach my $arch (@arches) {
19	push(@list, $self->get_older_revisions(
20	$package,
21	@@ -300,7 +301,7 @@
22	));
23	}
24
25	- return @list;
26	+ return uniq(@list);
27	}
28
29	=head2 get_files($path, $pattern)