summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-19 16:45:52 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-19 16:45:52 +0000
commit1017610aa70508afa1fe9f41dd0987522652f135 (patch)
tree6e86f81472c4ed59f082c9cc256f6e0bb4d7e207
parentd59b47aea0e5e97536e0cc0d8663ba27bbf8f185 (diff)
downloaddrakx-backup-do-not-use-1017610aa70508afa1fe9f41dd0987522652f135.tar
drakx-backup-do-not-use-1017610aa70508afa1fe9f41dd0987522652f135.tar.gz
drakx-backup-do-not-use-1017610aa70508afa1fe9f41dd0987522652f135.tar.bz2
drakx-backup-do-not-use-1017610aa70508afa1fe9f41dd0987522652f135.tar.xz
drakx-backup-do-not-use-1017610aa70508afa1fe9f41dd0987522652f135.zip
no_comment
-rw-r--r--perl-install/install_steps.pm2
-rw-r--r--perl-install/mouse.pm1
-rw-r--r--perl-install/pkgs.pm47
3 files changed, 27 insertions, 23 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 646061771..cf13372b9 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -145,7 +145,7 @@ sub beforeInstallPackages {
sub installPackages($$) {
my ($o, $packages) = @_;
my $toInstall = [ grep { $_->{selected} && !$_->{installed} } values %$packages ];
- pkgs::install($o->{prefix}, $toInstall, 0);
+ pkgs::install($o->{prefix}, $toInstall);
}
sub afterInstallPackages($) {
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index 3386654db..1292b592b 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -68,6 +68,7 @@ sub read($) { getVarsFromSh $_[0]; }
sub write($;$) {
my ($mouse, $prefix) = @_;
+ local $mouse->{FULLNAME} = qq("$mouse->{FULLNAME}");
setVarsInSh("$prefix/etc/sysconfig/mouse", $mouse, qw(MOUSETYPE XMOUSETYPE FULLNAME XEMU3));
symlink $mouse->{device}, "$prefix/dev/mouse" or log::l("creating $prefix/dev/mouse symlink failed");
}
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 35821e4a4..7db25b53e 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -24,16 +24,19 @@ sub Package {
sub select($$;$) {
my ($packages, $p, $base) = @_;
+ my ($n, $v);
$p->{base} ||= $base;
$p->{selected} = -1; #- selected by user
- my @l = @{$p->{deps} || die "missing deps file"};
- while (@l) {
- my $n = shift @l;
+ my %l; @l{@{$p->{deps} || die "missing deps file"}} = ();
+ while (do { while (($n, $v) = each %l) { last if !defined $v; } $n }) {
+ $l{$n} = 1;
$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");
- push @l, @{$i->{deps} || []} unless $i->{selected};
+ unless ($i->{selected}) {
+ $l{$_} ||= 0 foreach @{$i->{deps} || []};
+ }
$i->{selected}++ unless $i->{selected} == -1;
}
}
@@ -61,21 +64,21 @@ sub unselect($$;$) {
}
return if defined $size && $size <= 0;
- #- garbage collect for circular dependencies
- my $changed = 0; #1;
- while ($changed) {
- $changed = 0;
- NEXT: foreach my $p (grep { $_->{selected} > 0 && !$_->{base} } values %$packages) {
- my $set = set_new(@{$p->{provides}});
- foreach (@{$set->{list}}) {
- my $q = Package($packages, $_);
- $q->{selected} == -1 || $q->{base} and next NEXT;
- set_add($set, @{$q->{provides}}) if $q->{selected};
- }
- $p->{selected} = 0;
- $changed = 1;
- }
- }
+# #- garbage collect for circular dependencies
+# my $changed = 0; #1;
+# while ($changed) {
+# $changed = 0;
+# NEXT: foreach my $p (grep { $_->{selected} > 0 && !$_->{base} } values %$packages) {
+# my $set = set_new(@{$p->{provides}});
+# foreach (@{$set->{list}}) {
+# my $q = Package($packages, $_);
+# $q->{selected} == -1 || $q->{base} and next NEXT;
+# set_add($set, @{$q->{provides}}) if $q->{selected};
+# }
+# $p->{selected} = 0;
+# $changed = 1;
+# }
+# }
}
sub toggle($$) {
my ($packages, $p) = @_;
@@ -261,8 +264,8 @@ sub getHeader($) {
$p->{header};
}
-sub install {
- my ($prefix, $toInstall, $force) = @_;
+sub install($$) {
+ my ($prefix, $toInstall) = @_;
return if $::g_auto_install;
@@ -302,7 +305,7 @@ sub install {
my $callbackProgress = sub { log::ld("progressing installation ", $_[0], "/", $_[1]) };
if (my @probs = c::rpmRunTransactions($trans, $callbackOpen, $callbackClose,
- $callbackStart, $callbackProgress, $force)) {
+ $callbackStart, $callbackProgress, 0)) {
my %parts;
@probs = reverse grep {
if (s/(installing package) .* (needs (?:.*) on the (.*) filesystem)/$1 $2/) {