summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm10
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";