diff options
| -rw-r--r-- | Distribconf.pm | 5 | ||||
| -rwxr-xr-x | gendistrib | 3 |
2 files changed, 7 insertions, 1 deletions
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 <erinmargault@mandrake.org> 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 @@ -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", |