summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-09 09:02:47 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-09 09:02:47 +0000
commit1d3ac921d66022bb6e19a96dce95472cc31f0987 (patch)
tree4da18678cee71134f6cec6004f0b41afe6d25145 /perl-install/pkgs.pm
parentdb4013c2a40eaeb3752cc69623037e4bb274693b (diff)
downloaddrakx-backup-do-not-use-1d3ac921d66022bb6e19a96dce95472cc31f0987.tar
drakx-backup-do-not-use-1d3ac921d66022bb6e19a96dce95472cc31f0987.tar.gz
drakx-backup-do-not-use-1d3ac921d66022bb6e19a96dce95472cc31f0987.tar.bz2
drakx-backup-do-not-use-1d3ac921d66022bb6e19a96dce95472cc31f0987.tar.xz
drakx-backup-do-not-use-1d3ac921d66022bb6e19a96dce95472cc31f0987.zip
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm12
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 0f50ed3a5..edb6f441c 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -24,11 +24,11 @@ sub Package {
sub select($$;$) {
my ($packages, $p, $base) = @_;
$p->{base} ||= $base;
- $p->{selected} = -1; # selected by user
+ $p->{selected} = -1; #- selected by user
my @l = @{$p->{deps} || die "missing deps file"};
while (@l) {
my $n = shift @l;
- $n =~ /|/ and $n = first(split '\|', $n); #TODO better handling of choice
+ $n =~ /|/ and $n = first(split '\|', $n); #-TODO better handling of choice
my $i = Package($packages, $n) or next;
$i->{base} ||= $base;
$i->{deps} or log::l("missing deps for $n");
@@ -42,11 +42,11 @@ sub unselect($$) {
my $set = set_new($p->{name});
my $l = $set->{list};
- # get the list of provided packages
+ #- get the list of provided packages
foreach my $q (@$l) {
my $i = Package($packages, $q);
$i->{selected} && !$i->{base} or next;
- $i->{selected} = 1; # that way, its counter will be zero the first time
+ $i->{selected} = 1; #- that way, its counter will be zero the first time
set_add($set, @{$i->{provides} || []});
}
@@ -60,7 +60,7 @@ sub unselect($$) {
}
}
- # garbage collect for circular dependencies
+ #- garbage collect for circular dependencies
my $changed = 1;
while ($changed) {
$changed = 0;
@@ -280,7 +280,7 @@ sub install {
log::ld("starting installation: ", $nb, " packages, ", $total, " bytes");
- # !! do not translate these messages, they are used when catched (cf install_steps_graphical)
+ #- !! do not translate these messages, they are used when catched (cf install_steps_graphical)
my $callbackOpen = sub {
my $fd = install_any::getFile($_[0]) or log::l("bad file $_[0]");
$fd ? fileno $fd : -1;