From 39e1599eb3db23468edbfa479e40c90cec3a8352 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Mon, 2 Sep 2002 15:23:26 +0000 Subject: restore auto build of synthesis file (for updates). --- perl-install/install_any.pm | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'perl-install') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 537f0d536..7f58eb063 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -603,6 +603,14 @@ sub install_urpmi { } close LIST; + #- build synthesis file if there are still not existing (ie not copied from mirror). + if (-s "$prefix/var/lib/urpmi/synthesis.hdlist.$name.cz" <= 32) { + unlink "$prefix/var/lib/urpmi/synthesis.hdlist.$name.cz"; + run_program::rooted($prefix, "parsehdlist", ">", "/var/lib/urpmi/synthesis.hdlist.$name", + "--synthesis", "/var/lib/urpmi/hdlist.$name.cz"); + run_program::rooted($prefix, "gzip", "-S", ".cz", "/var/lib/urpmi/synthesis.hdlist.$name"); + } + my ($qname, $qdir) = ($name, $dir); $qname =~ s/(\s)/\\$1/g; $qdir =~ s/(\s)/\\$1/g; -- cgit v1.2.1