From 741cf249ebeeb8572471091720868f80fbc3f645 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sat, 14 Nov 2015 03:12:45 +0000 Subject: tlpfiles: convert tabs to spaces, add vim option git-svn-id: svn://tug.org/texlive/trunk@38849 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/bin/tlpfiles | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) (limited to 'Master/tlpkg/bin') 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: # -- cgit v1.2.3