diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 11 |
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 |