Distribconf

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
 
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",