From f40485dec9659934642a73ad9c2f91751ac65f5b Mon Sep 17 00:00:00 2001 From: Olivier Thauvin Date: Mon, 21 Feb 2005 15:34:56 +0000 Subject: Distribconf --- Distribconf.pm | 5 ++++- gendistrib | 3 +++ 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/Distribconf.pm b/Distribconf.pm index 0fa44cc..8abb119 100644 --- a/Distribconf.pm +++ b/Distribconf.pm @@ -298,7 +298,7 @@ sub write_hdlists { $h_hdlists = $hdlists; } else { $hdlists ||= "$distrib->{root}/$distrib->{infodir}/hdlists"; - open(my $h_hdlists, ">", $hdlists) or return 0; + open($h_hdlists, ">", $hdlists) or return 0; } foreach my $media ($distrib->listmedia) { printf($h_hdlists "%s%s\t%s\t%s\t%s\n", @@ -449,6 +449,9 @@ Thanks to Sylvie Terjan for the spell checking. =head1 ChangeLog $Log$ + Revision 1.5 2005/02/21 15:34:56 othauvin + Distribconf + Revision 1.4 2005/02/21 13:14:19 othauvin - add doc for pubkey diff --git a/gendistrib b/gendistrib index c5d6834..ab7612c 100755 --- a/gendistrib +++ b/gendistrib @@ -86,6 +86,9 @@ if (defined($urpmfiles{mediacfg})) { $distrib->parse_mediacfg || $distrib->parse_hdlists or die "Can't read the dsitrib config"; } +$distrib->write_hdlists(); +die; + my %default_urpmfiles = ( depslist => $distrib->getpath(undef, "root") . '/' . $distrib->getpath(undef, "infodir") . "/depslist.ordered", provides => $distrib->getpath(undef, "root") . '/' . $distrib->getpath(undef, "infodir") . "/provides", -- cgit v1.2.1