diff options
| -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"; |