From f450ab094ed6e3b3aa708c478eb1704fce27d947 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Sat, 14 Apr 2001 12:22:26 +0000
Subject: safe guard generation of synthesis file.

---
 perl-install/install_any.pm | 2 ++
 1 file changed, 2 insertions(+)

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;
-- 
cgit v1.2.1