From 608feed8925be3a467c384f974c6f0c39f0406d8 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 2 Mar 2009 13:59:17 +0000 Subject: (_cleanHeaders,extractHeaders) drop them --- perl-install/install/pkgs.pm | 32 -------------------------------- 1 file changed, 32 deletions(-) diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm index 9f859c10a..fd33aab1f 100644 --- a/perl-install/install/pkgs.pm +++ b/perl-install/install/pkgs.pm @@ -36,37 +36,6 @@ our %compssListDesc = ( 1 => N_("maybe"), ); -#- constant for small transaction. -our $limitMinTrans = 13; - - -sub _cleanHeaders() { - rm_rf("$::prefix/tmp/headers") if -e "$::prefix/tmp/headers"; -} - -#- get all headers from an hdlist file. -sub extractHeaders { - my ($pkgs, $media) = @_; - _cleanHeaders(); - - foreach my $medium (@$media) { - $medium->{selected} or next; - - my @l = grep { $_->id >= $medium->{start} && $_->id <= $medium->{end} } @$pkgs or next; - eval { - require packdrake; - my $packer = new packdrake(install::media::hdlist_on_disk($medium), quiet => 1); - $packer->extract_archive("$::prefix/tmp/headers", map { $_->header_filename } @l); - }; - $@ and log::l("packdrake failed: $@"); - } - - foreach (@$pkgs) { - my $f = "$::prefix/tmp/headers/" . $_->header_filename; - $_->update_header($f) or log::l("unable to open header file $f"), next; - } -} - #- TODO BEFORE TODO #- size and correction size functions for packages. my $B = 1.20873; @@ -717,7 +686,6 @@ sub install { log::l("closing install.log file"); close $LOG; - _cleanHeaders(); clean_rpmdb_shared_regions(); #- workaround librpm which is buggy when using librpm rooted and the just installed rooted library fs::loopback::save_boot($loop_boot); -- cgit v1.2.1