From e56348bfb7ec9dbe40058ee8cd04366835984f7f Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 24 Jun 2008 12:52:44 +0000 Subject: cleanup --- urpm/media.pm | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) (limited to 'urpm') diff --git a/urpm/media.pm b/urpm/media.pm index b2c12378..711986a5 100644 --- a/urpm/media.pm +++ b/urpm/media.pm @@ -306,14 +306,14 @@ sub synthesis { $medium->{name} && "synthesis.hdlist.$medium->{name}.cz"; } -sub statedir_synthesis { - my ($urpm, $medium) = @_; - "$urpm->{statedir}/" . synthesis($medium); -} sub statedir_media_info_file { my ($urpm, $medium, $prefix, $suffix) = @_; $medium->{name} && "$urpm->{statedir}/$prefix.$medium->{name}$suffix"; } +sub statedir_synthesis { + my ($urpm, $medium) = @_; + statedir_media_info_file($urpm, $medium, 'synthesis.hdlist', '.cz'); +} sub statedir_descriptions { my ($urpm, $medium) = @_; statedir_media_info_file($urpm, $medium, 'descriptions', ''); @@ -355,7 +355,7 @@ sub any_media_info_file { if (! -e $f) { # in some weird cases (iso on disk), the hdlist is not available where it should be, # but we can use the statedir copy - $f = "$urpm->{statedir}/$prefix.$medium->{name}$suffix"; + $f = statedir_media_info_file($urpm, $medium, $prefix, $suffix); } -e $f && $f; @@ -1706,13 +1706,12 @@ sub _retrieve_media_info_file_and_check_MD5SUM { sub _any_media_info__or_download { my ($urpm, $medium, $prefix, $suffix, $quiet, $o_callback) = @_; - my $name = "$prefix.$medium->{name}$suffix"; - my $f = "$urpm->{statedir}/$name"; + my $f = statedir_media_info_file($urpm, $medium, $prefix, $suffix); -s $f and return $f; my $download_dir; if (my $userdir = urpm::userdir($urpm)) { - $f = "$userdir/$name"; + $f = "$userdir/$prefix.$medium->{name}$suffix"; -s $f and return $f; $download_dir = "$userdir/partial"; -- cgit v1.2.1