summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-09-02 15:23:26 +0000
committerFrancois Pons <fpons@mandriva.com>2002-09-02 15:23:26 +0000
commit39e1599eb3db23468edbfa479e40c90cec3a8352 (patch)
treed40e3eb5136784104d72201cba78a3c33676288a /perl-install
parentc7afdc89c6d312728a540f8fa2d3293bf6754e27 (diff)
downloaddrakx-39e1599eb3db23468edbfa479e40c90cec3a8352.tar
drakx-39e1599eb3db23468edbfa479e40c90cec3a8352.tar.gz
drakx-39e1599eb3db23468edbfa479e40c90cec3a8352.tar.bz2
drakx-39e1599eb3db23468edbfa479e40c90cec3a8352.tar.xz
drakx-39e1599eb3db23468edbfa479e40c90cec3a8352.zip
restore auto build of synthesis file (for updates).
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm8
1 files changed, 8 insertions, 0 deletions
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;