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