diff options
| author | Francois Pons <fpons@mandriva.com> | 2001-04-14 12:22:26 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2001-04-14 12:22:26 +0000 |
| commit | f450ab094ed6e3b3aa708c478eb1704fce27d947 (patch) | |
| tree | 7a701487c0a388830edcd5a461642a0c130bb495 /perl-install | |
| parent | 87bf17d312857b6b6095fa57e79a5e5f7b0cee49 (diff) | |
| download | drakx-f450ab094ed6e3b3aa708c478eb1704fce27d947.tar drakx-f450ab094ed6e3b3aa708c478eb1704fce27d947.tar.gz drakx-f450ab094ed6e3b3aa708c478eb1704fce27d947.tar.bz2 drakx-f450ab094ed6e3b3aa708c478eb1704fce27d947.tar.xz drakx-f450ab094ed6e3b3aa708c478eb1704fce27d947.zip | |
safe guard generation of synthesis file.
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_any.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 640de4a14..46a524d54 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -467,6 +467,8 @@ sub install_urpmi { #- 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"); + #- safe guard correct generation of synthesis file. + -s "$prefix/var/lib/urpmi/synthesis.hdlist.$name.cz" > 24 or unlink "$prefix/var/lib/urpmi/synthesis.hdlist.$name.cz"; local *LIST; my $mask = umask 077; |