diff options
| -rwxr-xr-x | Master/tlpkg/bin/tlpfiles | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/Master/tlpkg/bin/tlpfiles b/Master/tlpkg/bin/tlpfiles index b42e83ad3f8..f56a2a1354b 100755 --- a/Master/tlpkg/bin/tlpfiles +++ b/Master/tlpkg/bin/tlpfiles @@ -42,7 +42,7 @@ exit (&main ()); sub main { my $Master = "$mydir/../.."; # xx TLPDB should default - my $tlpdb_path = "$Master/$TeXLive::TLConfig::InfraLocation/texlive.tlpdb"; + my $tlpdb_path = "$Master/$TeXLive::TLConfig::InfraLocation/texlive.tlpdb"; if (@opt_pkgof) { return &do_pkgof ($tlpdb_path, @opt_pkgof); @@ -60,7 +60,7 @@ sub main die "$0: no TeX Live package named $pkg in $Master.\n" if ! $obj; my @files = $obj->all_files; - if ($obj->relocated) { for (@files) { s:^$RelocPrefix/:$RelocTree/:; } } + if ($obj->relocated) { for (@files) { s:^$RelocPrefix/:$RelocTree/:; } } print "$_\n" foreach @files; return 0; @@ -110,21 +110,21 @@ sub find_pkg_of_file } elsif (/^ /) { # we carefully designed the format so that the only lines with # leading spaces are the files. - # By default we take only the basename, unless $opt_fullpath - my $dbfile = $_; - if ($opt_fullpath) { - $dbfile =~ s,^ ,,; - } else { + # By default we take only the basename, unless $opt_fullpath + my $dbfile = $_; + if ($opt_fullpath) { + $dbfile =~ s,^ ,,; + } else { $dbfile =~ s,^.*/,,; - } + } $DB_BY_FILE{$dbfile} .= "$pkg "; } } close (FILE) || warn "close($FILE) failed: $!"; } - if (!$opt_fullpath) { - $file =~ s,^.*/,,; # take basename + if (!$opt_fullpath) { + $file =~ s,^.*/,,; # take basename } # strict stupidity @@ -204,4 +204,4 @@ GNU General Public License Version 2 or later. ### tab-width: 2 ### indent-tabs-mode: nil ### End: -# vim:set tabstop=2: # +# vim:set tabstop=2 expandtab: # |