summaryrefslogtreecommitdiffstats
path: root/urpm
diff options
context:
space:
mode:
Diffstat (limited to 'urpm')
-rw-r--r--urpm/download.pm15
1 files 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>";