summaryrefslogtreecommitdiffstats
path: root/perl-install/install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install')
-rw-r--r--perl-install/install/media.pm28
1 files changed, 0 insertions, 28 deletions
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)) {