From f9e0abc235b0f525eee83580c630515a7ffd41e5 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Fri, 30 Jan 2009 10:38:19 +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 fe4ebf3f5..054f17d0c 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;
@@ -710,7 +679,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