From ecdca107d7e3d4e706cb2b3abcf8c05594e2669e Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 16 Nov 2012 17:13:53 +0000 Subject: (cleanHeaders,extractHeaders) drop them again, they're no more needed --- perl-install/install/pkgs.pm | 27 --------------------------- 1 file changed, 27 deletions(-) (limited to 'perl-install/install/pkgs.pm') diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm index 588aea420..ff6198ecd 100644 --- a/perl-install/install/pkgs.pm +++ b/perl-install/install/pkgs.pm @@ -27,33 +27,6 @@ use fs::any; use fs::loopback; use c; -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->{ignore} 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; - } -} - #- lower bound on the left ( aka 90 means [90-100[ ) our %compssListDesc = ( 5 => N_("must have"), -- cgit v1.2.1