diff options
| author | Francois Pons <fpons@mandriva.com> | 2001-04-14 12:19:22 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2001-04-14 12:19:22 +0000 |
| commit | 3959d3def013c80f94c59c0836af69be01d805b2 (patch) | |
| tree | 4e90c3adb9f0e666140043cd9a476c58fb4690ba /perl-install | |
| parent | 02e9c2c027ac49dce580521a7279b1968836685d (diff) | |
| download | drakx-3959d3def013c80f94c59c0836af69be01d805b2.tar drakx-3959d3def013c80f94c59c0836af69be01d805b2.tar.gz drakx-3959d3def013c80f94c59c0836af69be01d805b2.tar.bz2 drakx-3959d3def013c80f94c59c0836af69be01d805b2.tar.xz drakx-3959d3def013c80f94c59c0836af69be01d805b2.zip | |
fixed umask on urpmi list file and generate synthesis file for each hdlist.
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_any.pm | 8 |
1 files changed, 7 insertions, 1 deletions
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(), |