summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-04-14 12:22:26 +0000
committerFrancois Pons <fpons@mandriva.com>2001-04-14 12:22:26 +0000
commitf450ab094ed6e3b3aa708c478eb1704fce27d947 (patch)
tree7a701487c0a388830edcd5a461642a0c130bb495 /perl-install
parent87bf17d312857b6b6095fa57e79a5e5f7b0cee49 (diff)
downloaddrakx-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.pm2
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;