summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/c2l
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2023-04-23 22:58:48 +0000
committerKarl Berry <karl@freefriends.org>2023-04-23 22:58:48 +0000
commit0d4cabbf8c600cc049f2e03d601ddfcaf136afce (patch)
treec962a27d45cd36f7246b70bca33d84ef01542593 /Master/tlpkg/bin/c2l
parentd858a8eb881e466f6c3750b7648391fcac0a3263 (diff)
c2a: avoid catalogue update unless place.
c2l: die if argument contains a /, common typo. tl-check-wrapper-consistency: skip {context,mtxrun}.lua. ctan2tds, context-texlive.tlpsrc, tlpkg-ctan-check (TLP_no_check): doc for homegrown context-texlive. git-svn-id: svn://tug.org/texlive/trunk@66923 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/c2l')
-rwxr-xr-xMaster/tlpkg/bin/c2l6
1 files changed, 5 insertions, 1 deletions
diff --git a/Master/tlpkg/bin/c2l b/Master/tlpkg/bin/c2l
index ea1fbbd14c4..748fa7569bd 100755
--- a/Master/tlpkg/bin/c2l
+++ b/Master/tlpkg/bin/c2l
@@ -15,13 +15,17 @@ umask 022;
exit (&main ());
sub main {
+ my $arg = $ARGV[0];
+ if ($arg =~ m!/!) {
+ die "$0: argument must not contain /: $arg\n";
+ }
+
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]) =~ s,/$,,; # ignore trailing /
if ($arg eq "asy") {
exec ("tl-update-asy --build");
} elsif ($arg eq "aarch") {