diff options
author | Norbert Preining <preining@logic.at> | 2015-11-14 03:12:45 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2015-11-14 03:12:45 +0000 |
commit | 741cf249ebeeb8572471091720868f80fbc3f645 (patch) | |
tree | 52a50ed20092dc1980b7d76d087f0288042f548b /Master/tlpkg/bin | |
parent | 3f3076230b9e66a439187e812172a7e5facb9ed7 (diff) |
tlpfiles: convert tabs to spaces, add vim option
git-svn-id: svn://tug.org/texlive/trunk@38849 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin')
-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: # |