summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-07-17 16:45:33 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-07-17 16:45:33 +0000
commitdeddef1f4746139ed4ef994d8f053bf39d4d6384 (patch)
tree1b2ce28fc88f3b55e7dae2af56782ee6c849d775 /perl-install/pkgs.pm
parent9f8734e27c9a88137a2933970b7a5962e37789da (diff)
downloaddrakx-deddef1f4746139ed4ef994d8f053bf39d4d6384.tar
drakx-deddef1f4746139ed4ef994d8f053bf39d4d6384.tar.gz
drakx-deddef1f4746139ed4ef994d8f053bf39d4d6384.tar.bz2
drakx-deddef1f4746139ed4ef994d8f053bf39d4d6384.tar.xz
drakx-deddef1f4746139ed4ef994d8f053bf39d4d6384.zip
*** empty log message ***
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm43
1 files changed, 0 insertions, 43 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index d512c7c5a..060add8c5 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -45,43 +45,6 @@ sub psUsingDirectory {
\%packages;
}
-sub psReadComponentsFile {
- my ($compsfile, $packages) = @_;
- my (%comps, %current);
-
- local *F;
- open F, $compsfile or die "Cannot open components file: $!";
-
- <F> =~ /^0(\.1)?$/ or die "Comps file is not version 0.1 as expected";
-
- my $inComp = 0;
- my $n = 0;
- foreach (<F>) { $n++;
- chomp;
- s/^ +//;
- /^#/ and next;
- /^$/ and next;
-
- if ($inComp) { if (/^end$/) {
- $inComp = 0;
- $comps{$current{name}} = { %current };
- } else {
- $packages->{$_} ?
- push @{$current{packages}}, $packages->{$_} :
- log::w("package $_ does not exist (line $n of comps file)");
- }
- } else {
- my ($selected, $hidden, $name) = /^([01])\s*(--hide)?\s*(.*)/ or die "bad comps file at line $n";
- %current = (selected => $selected, inmenu => !$hidden, name => $name);
- $inComp = 1;
- }
- }
- log::l("read " . (scalar keys %comps) . " comps");
- \%comps;
-}
-
-
-
sub psVerifyDependencies {
# my ($packages, $fixup) = @_;
#
@@ -110,12 +73,6 @@ sub psVerifyDependencies {
# 1;
}
-sub selectComponents {
- my ($csp, $psp, $doIndividual) = @_;
-
- return 0;
-}
-
sub psFromHeaderListDesc {
my ($fd, $noSeek) = @_;
my %packages;