From 22987d1b74628b9736c5261649ee03e2d4e33a64 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 4 Sep 2008 07:23:18 +0000
Subject: simplify

---
 urpm/download.pm | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/urpm/download.pm b/urpm/download.pm
index 0155f64c..550fe2f7 100644
--- a/urpm/download.pm
+++ b/urpm/download.pm
@@ -941,17 +941,18 @@ sub _create_metalink_ {
     my @mirrors = _take_n_elem(8, @{$mirrors->{list}});
 
     foreach my $rel_file (@$rel_files) {
-	push @metalink, qq(\t<file name=") . basename($rel_file) . qq(">);
-	push @metalink, qq(\t\t<resources>);
-
 	my $i = 0; 
-	push @metalink, map {
+	my @lines = map {
 	    $i++;
-	    "\t\t\t" . _create_one_metalink_line($medium, $_, $rel_file, $i);
+	    _create_one_metalink_line($medium, $_, $rel_file, $i);
 	} @mirrors;
 
-	push @metalink, "\t\t</resources>";
-	push @metalink, "\t</file>";
+	push @metalink, 
+	  qq(\t<file name=") . basename($rel_file) . qq(">),
+	  qq(\t\t<resources>),
+	  (map { "\t\t\t$_" } @lines),
+	  "\t\t</resources>",
+	  "\t</file>";
     }
     push @metalink, "</files>", "</metalink>";
     
-- 
cgit v1.2.1