From 3959d3def013c80f94c59c0836af69be01d805b2 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Sat, 14 Apr 2001 12:19:22 +0000 Subject: fixed umask on urpmi list file and generate synthesis file for each hdlist. --- perl-install/install_any.pm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'perl-install/install_any.pm') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index dcdb13900..640de4a14 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -464,8 +464,14 @@ sub install_urpmi { my @cfg = map_index { my $name = $_->{fakemedium}; + #- build synthesis file at install, this will improve performance greatly. + run_program::rooted($prefix, "parsehdlist", ">", "/var/lib/urpmi/synthesis.hdlist.$name.cz", + "--compact", "--provides", "--requires", "/var/lib/urpmi/hdlist.$name.cz"); + local *LIST; - open LIST, ">$prefix/var/lib/urpmi/list.$name" or log::l("failed to write list.$name"), return; + my $mask = umask 077; + open LIST, ">$prefix/var/lib/urpmi/list.$name" or log::l("failed to write list.$name"); + umask $mask; my $dir = ${{ nfs => "file://mnt/nfs", hd => "file:/" . hdInstallPath(), -- cgit v1.2.1