From 972211368f439c75e4a3bc99d5a19a9fc72f02b0 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Adrian=20Schr=C3=B6ter?= <adrian@suse.de>
Date: Wed, 15 Apr 2009 11:56:38 +0000
Subject: [PATCH] take care about defined priority for repositories

---
 Build/Kiwi.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Build/Kiwi.pm b/Build/Kiwi.pm
index 7c5dba1..8b8988a 100644
--- a/Build/Kiwi.pm
+++ b/Build/Kiwi.pm
@@ -134,7 +134,7 @@ sub kiwiparse {
 
   my $instsource = ($kiwi->{'instsource'} || [])->[0];
   if ($instsource) {
-    for my $repository (@{$instsource->{'instrepo'} || []}) {
+    foreach my $repository(sort {$a->{priority} <=> $b->{priority}} @{$instsource->{'instrepo'} || []}) {
       my $kiwisource = ($repository->{'source'} || [])->[0];
       die("bad instsource path: $kiwisource->{'path'}\n") unless $kiwisource->{'path'} =~ /^obs:\/\/\/?([^\/]+)\/([^\/]+)\/?$/;
       push @repos, "$1/$2";
@@ -157,7 +157,7 @@ sub kiwiparse {
     }
   }
 
-  for my $repository (@{$kiwi->{'repository'} || []}) {
+  foreach my $repository(sort {$a->{priority} <=> $b->{priority}} @{$kiwi->{'repository'} || []}) {
     my $kiwisource = ($repository->{'source'} || [])->[0];
     next if $kiwisource->{'path'} eq '/var/lib/empty';	# grr
     die("bad path: $kiwisource->{'path'}\n") unless $kiwisource->{'path'} =~ /^obs:\/\/\/?([^\/]+)\/([^\/]+)\/?$/;
-- 
2.7.4