diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-09-29 04:15:41 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-09-29 04:15:41 +0000 |
| commit | 11c5ac20770a7c6f1e95b1fd32f4df05ffc17fe5 (patch) | |
| tree | db096b02ec049cc25b891fcaae8589dd39457e3a /perl-install/install_any.pm | |
| parent | f8501a2cf99ac7ad9e1ad742617356f2e026f10a (diff) | |
| download | drakx-11c5ac20770a7c6f1e95b1fd32f4df05ffc17fe5.tar drakx-11c5ac20770a7c6f1e95b1fd32f4df05ffc17fe5.tar.gz drakx-11c5ac20770a7c6f1e95b1fd32f4df05ffc17fe5.tar.bz2 drakx-11c5ac20770a7c6f1e95b1fd32f4df05ffc17fe5.tar.xz drakx-11c5ac20770a7c6f1e95b1fd32f4df05ffc17fe5.zip | |
install_urpmi now writes a names file for each media
Diffstat (limited to 'perl-install/install_any.pm')
| -rw-r--r-- | perl-install/install_any.pm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index ac074414e..4aed8387c 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -878,6 +878,16 @@ sub install_urpmi { close $LIST; } + #- build a names file + if (open my $F, ">", "$prefix/var/lib/urpmi/names.$name") { + if (defined $_->{start} && defined $_->{end}) { + foreach ($_->{start} .. $_->{end}) { + print $F $packages->{depslist}[$_]->name . "\n"; + } + } + close $F; + } + #- build synthesis file if there are still not existing (ie not copied from mirror). if (-s "$prefix/var/lib/urpmi/synthesis.hdlist.$name.cz" <= 32) { unlink "$prefix/var/lib/urpmi/synthesis.hdlist.$name.cz"; |