summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPDB.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm11
1 files changed, 5 insertions, 6 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm
index 811da76099b..90738ee0d54 100644
--- a/Master/tlpkg/TeXLive/TLPDB.pm
+++ b/Master/tlpkg/TeXLive/TLPDB.pm
@@ -815,14 +815,13 @@ containing a file named C<filename>.
# TODO adapt for searching in *all* tags ???
sub find_file {
my ($self,$fn) = @_;
- my @ret;
- foreach my $pkg ($self->list_packages) {
- my @foo = $self->get_package($pkg)->contains_file($fn);
- foreach my $f ($self->get_package($pkg)->contains_file($fn)) {
- push @ret, "$pkg:$f";
+ my @ret = ();
+ for my $pkg ($self->list_packages) {
+ for my $f ($self->get_package($pkg)->contains_file($fn)) {
+ push (@ret, "$pkg:$f");
}
}
- return(@ret);
+ return @ret;
}
=pod