From 310b3431701a5431c7cb300ea507dfdb3a2a2aca Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 27 Feb 2021 17:20:15 +0000 Subject: build urls, doc git-svn-id: svn://tug.org/texlive/trunk@57971 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/bin/c2l | 2 ++ 1 file changed, 2 insertions(+) (limited to 'Master/tlpkg/bin/c2l') diff --git a/Master/tlpkg/bin/c2l b/Master/tlpkg/bin/c2l index e239adaa5bd..40ee1923eb3 100755 --- a/Master/tlpkg/bin/c2l +++ b/Master/tlpkg/bin/c2l @@ -11,12 +11,14 @@ use Cwd; use File::Basename; $| = 1; +umask 022; exit (&main ()); sub main { my $real0 = Cwd::abs_path ($0); my $scriptdir = File::Basename::dirname ($real0); # .../Master/tlpkg/bin my $TLROOT = Cwd::abs_path ("$scriptdir/../../.."); # ... + chdir ($scriptdir) || die "chdir($scriptdir) failed"; # avoid . in PATH confusion # platform abbrev my $arg = $ARGV[0]; -- cgit v1.2.3