aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Distribconf.pm5
-rwxr-xr-xgendistrib3
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",