summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xMaster/tlpkg/bin/tlpfiles22
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: #