From cc636c51a74a9c24a157f379e3810034cf44879a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
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