diff options
| author | Karl Berry <karl@freefriends.org> | 2016-11-01 17:52:42 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2016-11-01 17:52:42 +0000 |
| commit | 89932411328fa7d9375927a54406fa3e5a8dc3da (patch) | |
| tree | 97700d0a145fc02a65bf57519b068dc939012667 /Master/tlpkg/bin/tlprm | |
| parent | e679f428bdb13fa73eee30ec52dbddcb53683055 (diff) | |
more check excludes; cd away for tlpsrc
git-svn-id: svn://tug.org/texlive/trunk@42414 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/tlprm')
| -rwxr-xr-x | Master/tlpkg/bin/tlprm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Master/tlpkg/bin/tlprm b/Master/tlpkg/bin/tlprm index 9158e6371b7..4ff9155a251 100755 --- a/Master/tlpkg/bin/tlprm +++ b/Master/tlpkg/bin/tlprm @@ -38,6 +38,10 @@ sub main { my $failure_count = 0; chomp (my $Master = `cd $mydir/../.. && pwd`); + # cd anywhere would do, but if in tlpsrc the .tlpsrc file itself + # is listed incorrectly as directly under Master. + chdir ($Master) || die "chdir($Master) failed: $!"; + my $tlpdb = TeXLive::TLPDB->new ("root" => $Master); foreach my $f (@ARGV) { |