From cc636c51a74a9c24a157f379e3810034cf44879a Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 9 Mar 2009 10:25:47 +0000 Subject: (_install_urpmi__generate_names,_install_urpmi__generate_synthesis) drop them, uneeded --- perl-install/install/media.pm | 28 ---------------------------- 1 file changed, 28 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install/media.pm b/perl-install/install/media.pm index 7392bc6db..7ec5085ac 100644 --- a/perl-install/install/media.pm +++ b/perl-install/install/media.pm @@ -885,31 +885,6 @@ sub copy_rpms_on_disk { our $copied_rpms_on_disk = 1; } -sub _install_urpmi__generate_names { - my ($packages, $medium) = @_; - - #- build a names file - output("$::prefix/var/lib/urpmi/names.$medium->{fakemedium}", - map { $packages->{depslist}[$_]->name . "\n" } $medium->{start} .. $medium->{end}); -} -sub _install_urpmi__generate_synthesis { - my ($packages, $medium) = @_; - - my $synthesis = "/var/lib/urpmi/synthesis.hdlist.$medium->{fakemedium}.cz"; - - #- build synthesis file if there are still not existing (ie not copied from mirror). - -s "$::prefix$synthesis" <= 32 or return; - - log::l("building $synthesis"); - - eval { $packages->build_synthesis( - start => $medium->{start}, - end => $medium->{end}, - synthesis => "$::prefix$synthesis", - ) }; - $@ and log::l("build_synthesis failed: $@"); -} - sub install_urpmi { my ($stage2_method, $packages) = @_; @@ -949,9 +924,6 @@ sub install_urpmi { $dir = MDK::Common::File::concat_symlink($dir, $medium->{rpmsdir}); - _install_urpmi__generate_names($packages, $medium); - _install_urpmi__generate_synthesis($packages, $medium); - my ($qname, $qdir) = ($medium->{fakemedium}, $dir); if (my $u = urpm::download::parse_url_with_login($qdir)) { -- cgit v1.2.1