From 80a213f6178d5155867b1d24749f730382553f65 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 1 Sep 2008 12:07:05 +0000
Subject: cleanup

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

(limited to 'urpm')

diff --git a/urpm/download.pm b/urpm/download.pm
index 228accda..8d21f9a6 100644
--- a/urpm/download.pm
+++ b/urpm/download.pm
@@ -871,13 +871,8 @@ sub _create_metalink_ {
     # Don't create a metalink when downloading mirror list
     $options->{media} or return;
 
-    my $mirrors;
-    foreach my $medium (@{$urpm->{media} || []}) {
-	if ($medium->{name} eq $options->{media}) {
-    	    my $mirrorlist = $medium->{mirrorlist};
-	    $mirrors = $urpm->{mirrors_cache}{$mirrorlist};
-	}
-    }
+    my ($medium) = grep { $_->{name} eq $options->{media} } @{$urpm->{media} || []};
+    my $mirrors = $urpm->{mirrors_cache}{$medium->{mirrorlist}};
     
     my $metalinkfile = "$urpm->{cachedir}/$options->{media}.metalink";
     # Even if not required by metalink spec, this line is needed at top of
@@ -894,7 +889,9 @@ sub _create_metalink_ {
 	push @metalink, qq(\t<file name=") . basename($append) . qq(">);
 	push @metalink, qq(\t\t<resources>);
 
-	my $i = 0; foreach my $mirror (@{$mirrors->{list}}) { $i++;
+	my $i = 0; 
+	foreach my $mirror (@{$mirrors->{list}}) { 
+	    $i++;
 	    my $type = $mirror->{url};
 	    $type =~ s!://.*!!;
 	    # If more than 100 mirrors, give all the remaining mirrors a priority of 0
-- 
cgit v1.2.1