diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 28 |
1 files changed, 8 insertions, 20 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index 5303e7d605c..752746f3834 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -349,29 +349,14 @@ sub generate_listfiles { } foreach (sort keys %{$self->{'tlps'}}) { $tlp = $self->{'tlps'}{$_}; - $self->_generate_listfile($tlp, $destdir, "all"); - if ($tlp->is_arch_dependent) { - foreach my $a (keys %{$tlp->binfiles}) { - $self->_generate_listfile($tlp, $destdir, $a); - } - } + $self->_generate_listfile($tlp, $destdir); } } sub _generate_listfile { - my ($self,$tlp,$destdir,$arch) = @_; - my @files = (); - my $listname; - if ($arch ne "all") { - my %foo = %{$tlp->binfiles}; - push @files, @{$foo{$arch}}; - $listname = $tlp->name . ".$arch"; - } else { - $listname = $tlp->name; - push @files, $tlp->runfiles; - push @files, $tlp->docfiles; - push @files, $tlp->srcfiles; - } + my ($self,$tlp,$destdir) = @_; + my $listname = $tlp->name; + my @files = $tlp->all_files; @files = TeXLive::TLUtils::sort_uniq(@files); &mkpath("$destdir") if (! -d "$destdir"); my (@lop, @lot); @@ -384,7 +369,10 @@ sub _generate_listfile { push @lop, $d; } } else { - warn "Strange: $tlp->name depends on $d, but this package does not exists!\n"; + # speudo dependencies on $Package.ARCH can be ignored + if ($d !~ m/\.ARCH$/) { + warn "Strange: $tlp->name depends on $d, but this package does not exists!\n"; + } } } open(TMP, ">$destdir/$listname") or die "Cannot open $destdir/$listname!"; |