summaryrefslogtreecommitdiffstats
path: root/perl-install/install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-11-16 17:13:53 +0000
committerThierry Vignaud <tv@mageia.org>2012-11-16 17:13:53 +0000
commit61e15785e6fa1d3f287af72fa5c3a498c9b113e1 (patch)
tree3725cb4c5c6a0f3be92a52a2698238a1b4f9e6b1 /perl-install/install
parenta3a72cd80b3a2d3458e83c8b4276b8c5b291ef10 (diff)
downloaddrakx-61e15785e6fa1d3f287af72fa5c3a498c9b113e1.tar
drakx-61e15785e6fa1d3f287af72fa5c3a498c9b113e1.tar.gz
drakx-61e15785e6fa1d3f287af72fa5c3a498c9b113e1.tar.bz2
drakx-61e15785e6fa1d3f287af72fa5c3a498c9b113e1.tar.xz
drakx-61e15785e6fa1d3f287af72fa5c3a498c9b113e1.zip
(cleanHeaders,extractHeaders) drop them again, they're no more needed
Diffstat (limited to 'perl-install/install')
-rw-r--r--perl-install/install/pkgs.pm27
1 files changed, 0 insertions, 27 deletions
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"),