From 45f782ed7c8143af2e8560aa501f3798c358e28d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 4 Sep 2008 07:21:42 +0000 Subject: simplify --- urpm/download.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'urpm/download.pm') diff --git a/urpm/download.pm b/urpm/download.pm index d39d52b3..0155f64c 100644 --- a/urpm/download.pm +++ b/urpm/download.pm @@ -945,10 +945,11 @@ sub _create_metalink_ { push @metalink, qq(\t\t); my $i = 0; - foreach my $mirror (@mirrors) { + push @metalink, map { $i++; - push @metalink, "\t\t\t" . _create_one_metalink_line($medium, $mirror, $rel_file, $i); - } + "\t\t\t" . _create_one_metalink_line($medium, $_, $rel_file, $i); + } @mirrors; + push @metalink, "\t\t"; push @metalink, "\t"; } -- cgit v1.2.1