summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-11-22 01:56:47 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-11-22 01:56:47 +0000
commit3fbb4389df3ddeecd4fcd645591a3d90a47de373 (patch)
tree8f1547576b7dcbb2678e5aac7516d3e22e5169ec /perl-install/install_any.pm
parentc942786c119d41faaa03357ddeb5bea338867727 (diff)
downloaddrakx-3fbb4389df3ddeecd4fcd645591a3d90a47de373.tar
drakx-3fbb4389df3ddeecd4fcd645591a3d90a47de373.tar.gz
drakx-3fbb4389df3ddeecd4fcd645591a3d90a47de373.tar.bz2
drakx-3fbb4389df3ddeecd4fcd645591a3d90a47de373.tar.xz
drakx-3fbb4389df3ddeecd4fcd645591a3d90a47de373.zip
no_comment
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm7
1 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index f982ac38d..040d36baf 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -391,7 +391,7 @@ sub g_auto_install(;$) {
my @fields = qw(mntpoint type size);
$o->{partitions} = [ map { my %l; @l{@fields} = @$_{@fields}; \%l } grep { $_->{mntpoint} } @{$::o->{fstab}} ];
- exists $::o->{$_} and $o->{$_} = $::o->{$_} foreach qw(lang autoSCSI authentication printer mouse netc timezone superuser intf keyboard mkbootdisk base users installClass partitioning isUpgrade X manualFstab); #- TODO modules bootloader
+ exists $::o->{$_} and $o->{$_} = $::o->{$_} foreach qw(lang autoSCSI authentication printer mouse netc timezone superuser intf keyboard mkbootdisk base users installClass partitioning isUpgrade X manualFstab nomouseprobe); #- TODO modules bootloader
#- local $o->{partitioning}{clearall} = 1;
@@ -459,6 +459,10 @@ sub install_urpmi {
print OUT foreach <$fd>;
}
{
+ local *F = getFile("depslist");
+ output("$prefix/etc/urpmi/depslist", <F>);
+ }
+ {
local *LIST;
open LIST, ">$prefix/etc/urpmi/list.$name" or log::l("failed to write list.$name"), return;
@@ -472,7 +476,6 @@ sub install_urpmi {
$dir .= "/Mandrake/RPMS with ../base/hdlist" if $method =~ /ftp|http/;
eval { output "$prefix/etc/urpmi/urpmi.cfg", "$name $dir\n" };
}
- run_program::rooted($prefix, "urpmi.update");
}
1;