diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-11-22 01:56:47 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-11-22 01:56:47 +0000 |
| commit | 3fbb4389df3ddeecd4fcd645591a3d90a47de373 (patch) | |
| tree | 8f1547576b7dcbb2678e5aac7516d3e22e5169ec /perl-install/install_any.pm | |
| parent | c942786c119d41faaa03357ddeb5bea338867727 (diff) | |
| download | drakx-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.pm | 7 |
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; |